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Inleiding 


Chip is een computertje ongeveer zo groot als twee luciferdoosjes tegen 
elkaar. Het hart van Chip is een microcontroller. Heel bijzonder is, dat in 
de microcontroller geen programma zit voor een vaste taak, maar een 
programma dat instructies in een hogere programmeertaal decodeert en 
ze in microcontroller code uitvoert. 

Deze programmeertaal is speciaal geschreven voor Chip en heel eenvou- 
dig van opzet. 

Om met Chip te werken is kennis van microcontrollers niet nodig. Het eni- 
ge dat nodig is, is Chip's instructieset. 


Chip bevat standaard alle hardware die voor eenvoudige toepassingen 
nodig is en voor de sturing daarvan bevat de hogere programmeertaal in- 
structies. 


Om Chip te gebruiken is alleen een PC nodig met een seriële poort. Chip 
bevat alle software die voor de communicatie nodig is. Het programmeren 
van Chip kan direct in de hogere programmeertaal, aan de hand van de in- 
structieset, maar ook in de symbolische schrijfwijze met mnemonics en 
labels. Door een assembler worden de symbolische programma's in in- 
structies vertaald en kunnen dan meteen in Chip worden geladen. 
Deze manier van programmeren levert heel leesbare programma's en 
maakt de kans op fouten kleiner. 


Ondanks alle eenvoud is Chip een vrij krachtig computersysteem. Maar 
om alle mogelijkheden vol te benutten is enige kennis van elementaire di- 
gitale principes onmisbaar. Ook begrippen als bytes, nibbles en bits moe- 
ten vertrouwd klinken en de elementaire werking van het computermodel 
volgens von Neumann moet bekend zijn. 


Als aan deze voorwaarden wordt voldaan, zal men van Chip veel plezier 


kunnen hebben en het kleine apparaatje steeds meer gaan waarderen. 


Bob Stuurman 
april 2004 
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1 Hardware en operating system 


Inleiding 

Chip is een computertje dat speciaal is ontworpen om kleine projecten te 
automatiseren. Dat kan een woning zijn, een alarminstallatie, een robot, 
een datalogger, een weerstation, kortom systemen waarin de tijd een rol 
kan spelen en waar signalen moeten worden gemeten en relais en/of ser- 
vo's aangestuurd. Het hart van Chip is een microcontroller, die een opera- 
ting system bevat voor de communicatie met de gebruiker én een 
interpreter voor het uitvoeren van programma's, die in een interne 
EEPROM zijn opgeslagen. Zo'n programma bestaat uit een reeks ma- 
cro-instructie's, elk twee bytes lang, die de in machinetaal geschreven 
routines in de microcontroller oproepen en sturen. Een Chip programma 
kan gewoon in “mensentaal” worden geschreven. Een assembler stelt de 
macro's samen, die dan met een uploader in de EEPROM worden ge- 
schreven. Om met Chip te kunnen werken is een PC nodig met een seri- 
ele poort, dat is alles. 

Een aardige toepassing is die van een robot, en dat zullen we in een vol- 
gend hoofdstuk verder uitwerken. Chip is ook heel geschikt om woningen 
te automatiseren. Zo kan de verwarming worden geregeld aan de hand 
van de binnen- en buitentemperaturen, de dag van de week en de tijd. Op 
een display worden de gegevens zichtbaar gemaakt en met een toetsen- 
bordje kunnen bedieningsfuncties worden opgeroepen. Als u de Basic 
Stamp "! kent, dan is het u misschien opgevallen dat tot zover Chip wel 
enige gelijkenis vertoont met de Basic Stamp zélf. Toch is dat zuiver toe- 
val, want het concept van de in Chip gebruikte macrotaal is niet nieuw”. 


Specificaties 
De voornaamste eigenschappen van Chip kunnen als volgt worden sa- 
mengevat: 
— kenmerk: 
programmeerbare minicomputer op basis van een ST62T65 microcon- 
troller 
— programmeertaal: 
macro-instructies van 2 bytes 
— type vertaler: 
interpreter 
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— aantal variabelen: 
16, 0 tot en met F 


— instructietijd: 
ongeveer 1 ms, afhankelijk van type instructie 
— programmageheugen: 
FC EEPROM met 2.048 bytes 
— ingangen: 
vijf, digitaal en analoog leesbaar 
— keyboard: 
twaalf key keyboard mogelijk op analoge ingang 
— uitgangen: 
— vijf, digitaal met 20 mA sink/7 mA source (begrensd door weerstan- 
den) 


— twee servo's, pulstijd 0,9 ms tot en met 1,9 ms, frequentie 50 Hz 
— alternatief voor servo-uitgangen is één analoge uitgang 
— LCD-display, 1 regel 16 karakters 
— sounder 
— lopende tekst: 
maximaal 24 karakters op het LCD 
— real-time klok: 
weken, dagen, uren, minuten en seconden 
— klok fine-tuning: 
softwarematig in stappen van 2,7 ppm 
— timers: 
korte timer, seconden en minuten timers en een sounder 
— communicatie: 
interactieve commandoprocessor, RS232, protocol 19.200,7,n,2 
— voedingsspanning: 
4,4 V tot 60 V 
— voedingsbron: 
accupakket van 4 NiCads of 5 V voeding 
— stroomverbruik: 
ongeveer 3 mA zonder externe componenten 
— print: 
enkelzijdig, 70 x 62 mm’ 
— hulp software: 
Chip assembler, Chip terminal met hex uploader 
— toepassingen: 
woning automatisering, robots, lange tijd logger, eenvoudige besturin- 
gen, alarminstallaties, technische modelbouw 
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Systeembeschrijving 

Chip bevat niet alleen een geprogrammeerde microcontroller, maar ook 
een aantal hardware componenten om hem zo veelzijdig mogelijk te ma- 
ken. De hardware kan direct met macro instructies worden gestuurd. Het 
is dus niet nodig om te weten hoe de microcontroller zélf werkt, alles kan in 
Chip-code worden bestuurd. Toch kunnen we ons voorstellen, dat u meer 
over de gebruikte controller wilt weten. In ? is een boek vermeld, dat veel 
aspecten op een duidelijke manier uitlegt. Ook van het Internet zijn de da- 
tasheets te downloaden, bijvoorbeeld vanwww.vego.nl/chip. 

Voor de echte specialisten is het misschien wel interessant om te weten, 
dat het mogelijk is om door middel van Chip-code de registers in de micro- 
controller te lezen en te schrijven. 


Snel programmeren 

Door de efficiënte macro-instructies zijn Chip programma’s heel compact 
en snel te schrijven. Het assembleren van een programma is in seconden 
gebeurd, waarna het onmiddellijk geladen en getest kan worden. Het aan- 
brengen van wijzigingen is vrijwel interactief, wat het werken heel plezierig 
maakt. 


De hardware 

In figuur 1-1 is het volledig schema van Chip voorgesteld. Centraal daarin 
staat de microcontroller ST62T65 van ST-Microelectronics (IC2). Het is 
een CMOS IC zoals ook de andere IC's, om het stroomverbruik laag te 
houden. De microcontroller bevat een aantal extra componenten, zoals 
een gewone timer, een auto-reload timer, een analoog/digitaal converter 
en een seriële perifere interface, kortweg SPI. Alle perifere componenten 
worden door Chip gebruikt. De gewone timer wordt gebruikt als klok en 
houdt de seconden, minuten, uren, dagen en weken van het jaar bij. Ook 
de diverse software timers worden door de gewone timer bestuurd. De au- 
to-reload timer wordt gebruikt om twee servo's onafhankelijk van elkaar te 
sturen. Beide timers werken op interruptbasis, waardoor Chip in feite 
“multitasking” is. De afregeling van de klok gebeurt met een software byte, 
dat door de gebruiker kan worden ingesteld. Eenmaal per minuut wordt de 
timer met deze waarde gecorrigeerd. 

Op K1 zijn vijf digitale uitgangen beschikbaar (Out 0 - Out 4) met serie- 
weerstanden om de microcontroller te beveiligen. Deze uitgangen kunnen 
worden gezet en teruggezet en de toestand van iedere uitgang kan wor- 
den gelezen. 
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Het volledig schema van Chip. 
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Op de servo-uitgangen K2 en КЗ kunnen normale servo's worden aange- 
sloten, zoals die voor radiografisch bestuurde modellen in soorten en ma- 
ten verkrijgbaar zijn. De servo's worden onafhankelijk van elkaar door de 
auto-reload timer gestuurd. Een interruptroutine schakelt via PB6 poort A 
of poort B van IC1 door. 

Op connectorblok K4 zijn vijf ingangen aanwezig. Elke ingang kan digitaal 
en analoog worden gelezen. In het laatste geval wordt de gekozen ingang 
met de ADC verbonden. Bij iedere in- en uitgang zijn op de connectors 
Gnd en V,, aansluitingen aanwezig. 

Sensors, LED's en dergelijke kunnen direct op de connectors worden 
aangesloten. Servo's met Futaba of JR servostekkers passen direct op de 
servo aansluitingen. Omdat belaste servo's aanzienlijke stromen opne- 
men, worden ze via een separaat ontkoppelde verbinding vanuit het voe- 
dingspunt van de schakeling gevoed. 

Voor de communicatie met de gebruiker dient connector K7. Dit is een 
standaard sub-D connector, die met een verlengsnoer op een seriële 
poort van de PC wordt aangesloten. Het ingangssignaal wordt door R21, 
D6 en D7 begrensd en via R13 naar de ingang van de SPI (Sin) gevoerd. 
Het seriële uitgangssignaal (Sout) bereikt via analoge schakelaar IC3A de 
uitgangspen van de connector. Als de analoge schakelaar open is, wordt 
door R18 de uitgang laag gehouden. De niveau's van het seriële uitgangs- 
signaal zijn niet conform de RS232-norm, maar toch werkt deze schake- 
ling betrouwbaar mits het verbindingssnoer niet te lang is. Bij seriële 
communicatie is PCO hoog en IC3A gesloten, IC3C en IC3D zijn geopend. 
Door PCO laag te maken, wordt de seriële EEPROM (IC4) met de SPI ver- 
bonden en via WC (Write Control) schrijfbaar gemaakt. Nu kunnen de 
software routines via het l'C-protocol" de EEPROM voor lezen en schrij- 
ven benaderen. Voor de feitelijke overdracht zorgt de SPI met een klokfre- 
quentie van 308 kHz. 

Op connector K8 kan een éénregelig karakter-LCD met zestien letters 
worden aangesloten. Het is geen écht 16 karakter LCD, maar een 2 x 8 
karakter LCD, het meest voorkomende type. Over LCD's kan een heel 
boek worden geschreven, in" staan enkele lezenswaardige publicaties. 
Voor de aansturing van de databus van het LCD wordt een serieel naar 
parallel omzetter gebruikt (IC5) zodat voor de overdracht slechts drie uit- 
gangen van de microcontroller nodig zijn. PA5 levert de klok, DAG de data 
en PA7 de strobe. De strobe van IC5 is positief, zodat PA7 tevens kan 
worden gebruikt als (negatieve) strobe om de data in het LCD te klokken. 
Normaal is PA6 als ingang geschakeld. Op deze ingang is drukknop S1 
aangesloten. 
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Deze wordt eenmaal per seconde door het operating system getest en als 
de drukknop is ingedrukt wordt een draaiend Chip-programma gestopt en 
teruggesprongennaar de commandoprocessor.S1 is dus geen resetknop 
maar een breakknop en de realtime klok blijft doorlopen. Aansluiting 
Reg/Sel van het LCD dient voor de keuze karaktermode of commando- 
mode. Deze aansluiting wordt door PB5 gestuurd. Tevens wordt PB5 voor 
de sturing van sounder SND1 gebruikt. Bij de eerste negatief gaande klok, 
gebruikt om data voor het LCD in het schuifregister te zetten, wordt analo- 
ge schakelaar IC3B geopend en de sounder uitgeschakeld (D3, R16, C7). 
Na afloop van de data transfer wordt C7 via R15 geladen en IC3B geslo- 
ten. Met P1 kan het contrast van het LCD worden ingesteld. Dit hoeft over 
het algemeen maar één keer te worden gedaan. Als voor het LCD een 
type met backlight wordt genomen is dat ook bij weinig of geen omge- 
vingslicht goed afleesbaar. 

De penbezetting van K8 komt overeen met die van de in de onderdelenlijst 
genoemde LCD's. 

De power-up reset wordt verzorgd door D1, R14 en C6. 


De print van Chip 

In figuur 1-2 is de enkelzijdig print voorgesteld. Let op: deze figuur is niet 
op schaal 1/1! Via de speciale Chip Internet-pagina www.ve i 
kunt u het ontwerp downloaden. Open dit bestand in een beeldbewer- 
kingsprogrammazoals Paint Shop en druk het ontwerp af op transparante 
folie met als afmetingen 62 x 70 mnt. 

Boor eerst alle gaten met een boortje van 0,8 mm. Ga nadien de volgende 
gaatjes uitboren: 

— de gaten voor de connectoren en de sounder met 1mm; 

— de vier bevestigingsgaten met 3 mm. 


Het bouwen van Chip 

De componentenopstelling van de print is voorgesteld in figuur 1-3. Mon- 
teer eerst de 17 draadbruggen en breng over B10 ter hoogte van B15 een 
isolatiekousje aan zodat daar geen kortsluiting kan ontstaan. 
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Figuur 1-3: De componentenopstelling van Chip. 


14 


Chip, een zelfbouw computertje 1 - Hardware en operating system 


Gebruik bij voorkeur de aanbevolen voetjes, dan zijn er geen problemen 
met de draadbruggen. Let op de uitsparing in de voetjes ter indicatie van 
pen 1. Let op verder op dat, vóór de voet voor IC2 wordt geplaatst, eerst 
C8, D4 en R17 worden gemonteerd. Leg C9 plat op de print in verband 
met de hoogte én de brug in het IC-voetje. Voor connectoren K1 en K4 is 
onder een strip dubbelrijige pinheaders gebruikten boven een strip enkel- 
rijige, alle connectors behalve K7 zijn male. De connectoren zijn met een 
figuurzaagje voor metaal van de strip afgezaagd. 

Als voedingsbron zijn vier penlight NiCad's in een batterijhouder gebruikt. 
In het snoer met batterijclip is een aan/uit schuifschakelaar (zelfreinigend) 
opgenomen. 

Het snoer is direct in de voedingspunten van de print gesoldeerd. Door de 
batterijclip kan het accupakket worden losgenomen om te worden opgela- 
den. 

In plaats van R2 hebben we een tweepolige male header gemonteerd. Uit 
een glaszekering van 1,2 A hebben we het zekeringdraadje gehaald en op 
een tweepolige female SIL-header gesoldeerd. Deze “zekering” is op de 
header op de print gezet. 

Met een EEPROM ST24C16 kan op positie 1 van K6 een jumper worden 
gezet. Dan is de EEPROM normaal tegen schrijven beschermd. Jammer 
genoeg is bij sommige EEPROM's van ander fabrikaat de reactietijd van 
de Write Control niet snel genoeg. Dan kan WC niet actief worden gebruikt 
en wordt vast laag gemaakt door een jumper op positie 2 van K6. 

Als de seriële ingang (K7, pen 3) laag is, dan staat op knooppunt R21, D6, 
D7 circa -0,3 V. Weerstand R13 vormt nu met de inwendige pull-up weer- 
stand van Sin (nominaal 100 kQ) een spanningsdeler. In het extreme ge- 
val dat deze pull-up weerstand een lagere waarde heeft dan ca. 60 kQ, 
kan het nodig zijn om R13 iets te verkleinen, zodat het niveau op Sin als 
laag wordt herkend (max. 0,3 x V). 

Het is mogelijk om de Chip-interpreter zelfstartend te maken door over K5 
een jumper te zetten. Door C8 en D5 wordt dan S1 even “ingedrukt gehou- 
den” als Chip wordt aangezet. Door R17 wordt C8 verder opgeladen en 
wordt de drukknop vrijgegeven. Hetzelfde resultaat wordt bereikt, zonder 
de jumper over K7, door S1 tijdens het inschakelen ingedrukt te houden. 


Let op 

Van de ST62T65 zijn twee uitvoeringen leverbaar, namelijk met achter- 
voegsels BB6 en met achtervoegsels CB6 of C. Bij de B-versie is de reset 
een ingang, maar bij de C-versie een uitgang. Bij de C-versie moet daar- 
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om resetcondensator C6 worden weggelaten. De reset wordt door de con- 
troller zélf verzorgd door de LVD-optie (low voltage detector). Als u de 
microcontroller zelf programmeert, moet het LVD-bit van de Option Bytes 
worden gezet en de Option Bytes worden geprogrammeerd. Bij de 
B-versie hoeft de Option Byte niet persé te worden geprogrammeerd. 


Het eindresultaat 
Als de print volgens de handleiding is bestukt ziet het eindresultaat er uit 
zoals voorgesteld in figuur 1-4. 


Figuur 1-4: Het prototype van Chip, dit wijkt iets af van de definitieve 
versie. 


Het operating system 

Chip bevat een eenvoudige commandoprocessor, die via de seriële poort 
met het terminal programma in de PC communiceert. Het protocol is 
19.200,7,n,2. In eerste instantie kan bijvoorbeeld het bij Windows gelever- 
de Terminal programma worden gebruikt, maar om ook programma's 
naar Chip te uploaden moet Chipterm.exe of Chip VB Terminal worden 
gebruikt, zie www.vego.nl/chip. 

Voor de ingave mogen uitsluitend kleine letters worden gebruikt. Na inga- 
ve van een commando en eventuele parameters, wordt afgesloten met 
Enter waarna de commandoprocessor in actie komt. Met Backspace kun- 
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nen fouten worden hersteld en met Escape wordt de hele regel wegge- 
gooid. Er zijn zeven commando's, zie figuur 1-5, we zullen ze in 
vogelvlucht behandelen want het wijst zich eigenlijk vanzelf. 


Figuur 1-5: De beschikbare commandoset. 


Als het Terminal Programma is gestart en Chip wordt aangezet, verschijnt 
na een druk op Enter, command?, met op de volgende regel de prompt ?. 
Door het commando ? te geven (afsluiten met Enter), wordt de comman- 
doset op het scherm gezet. 


prog [adres] 

Met dit commando kunnen we in de externe EEPROM schrijven en lezen. 
Alleen de even adressen worden getoond, gevolgd door de bytes op dit 
adres en het erop volgende. Het laagste adres is 0000 en het hoogste 
07FF. Met de + en - toetsen kunnen we het adres verhogen of verlagen. 
Na de ingave van 2 bytes worden deze weggeschreven en het adres ver- 
hoogd. Met Escape keren we terug naar de commandoprocessor. 


chip 

Dit commando start een Chip programma. De commandoprocessor werkt 
dan niet meer. Een Chip programma kan ook worden gestart door tijdens 
het aanzetten van Chip drukknop S1 ingedrukt te houden of op K5 een 
jumper te zetten. Het programma kan worden gestopt door op de druk- 
knop te drukken, ook de break instructie of een fout in het programma 
doen het programma stoppen. 
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time 

Na ingave verschijnt een lopende 24-uurs klok op het scherm. Drukken op 
Enter brengt ons in het weekveld, de klok kan worden gelijkgezet. Twee- 
maal drukken op Escape laat de klok ongewijzigd. 


page, mem en put 
Met deze commando's kunnen registers in de microcontroller worden ge- 
lezen en geschreven. 


Adresbereik 00h-3Fh 

Eerst moeten we echter iets vertellen over adresbereik OOh-3Fh. De mi- 
crocontroller heeft behalve normale RAM ook twee EEPROM pagina’s en 
een extra RAM pagina. Met het page commando kan een van deze drie 
pagina's in adresbereik 00h-3Fh worden geprojecteerd. 

In EEPROM pagina 0 zetten we van 00h-0Fh een introtekst en op adres 
10h de afregelbyte van de klok. Kies eerst met mem 0 adres 00 van de mi- 
crocontroller. Dit adres en de bijbehorende byte verschijnen op het 
scherm, het is een adres in de extra RAM pagina (page 2). Met page 0 kie- 
zen we EEPROM pagina 0. Met behulp van het commando put byte kan 
byte op dit adres worden geschreven. Met * wordt het adres verhoogd 
(met - verlaagd). Nu kan de welkom-boodschap in de EEPROM worden 
gezet: 


2a, 20, 48, 69, 2c, 20, 49, 27, 6d, 20, 43, 68, 69, 70, 20, 2a 


Ais alle bytes in EEPROM pagina 0 staan, drukken we op Escape om naar 
de commandoprocessor terug te keren. Als u een lijst met de ASCII- 
karakters heeft, weet u waarschijnlijk al wat de introtekst is. Om hem op 
het LCD te zetten moet Chip worden gereset door hem even uit en weer 
aante zetten. Op adres 10 van dezelfde pagina zetten we op dezelfde ma- 
nier de afregelbyte voor de klok. Met de waarde EAh zal hij al vrijwel gelijk 
lopen. Dus mem 10, page 0, put ea. 

Verhogen van deze waarde doet de klok langzamer lopen, verlagen snel- 
ler. De invloed is pas na 24 uur of langer merkbaar. 


Opmerking 
Vergeet niet om na iedere aanpassing Chip te resetten, want alleen bij het 
opstarten wordt de byte uit de EEPROM gelezen, evenals de introtekst. 
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2 De Chip instructieset 


Inleiding 

Een Chip programma bestaat uit een reeks macro instructies, ieder twee 
bytes lang. Het programma begint op adres 000h van de EEPROM en het 
hoogste adres van de EEPROM is 7FFh. Een programma kan dus maxi- 
maal circa duizend instructies bevatten. Met het commando prog, zie fi- 
guur 2-1, kan het programma in de EEPROM worden gezet, worden 
bekeken en/of gewijzigd. Het standaard adres voor prog is 000h en on- 
even adressen worden niet geaccepteerd, een instructie moet altijd op 
een even adres staan. Het hoogste adres dat met prog kan worden bena- 
derd is 7FFh, daarboven is het adresgebied echter niet leeg. In het gebied 
van 800h tot en met 8FFh zijn de registers van de microcontroller gepro- 
jecteerd. Die bevinden zich daar natuurlijk niet echt, maar een Chip pro- 
gramma ziet ze daar wel en kan ze lezen en schrijven. Zo is het mogelijk 
om bijvoorbeeld de auto-reload timer om te programmeren zodat op een 
van de servo-uitgangen een analoog (PWM) signaal komt te staan. 


| command? 
{prog 100 


0100 778C * 
0102 778D - 
0100 778C 1234 
0102 778D 5678 


Figuur 2-1: Het commando prog. 


De Chip macrotaal, een eenvoudig concept 

ledere instructie bestaat uit twee bytes, maar het is eenvoudiger ze te be- 
schouwen als zijnde opgebouwd uit vier hex cijfers, ook wel nibbles ge- 
noemd. Een nibble bevat vier bits en kan dus de waardes Oh tot en met Fh 
bevatten. Een Chip instructie bevat vier nibbles en heeft de algemene 
vorm van: 
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AXYB 


Hierin geeft A het type instructie aan, X en Y zijn variabelen en B is een 
precisering van de instructie. Voor X en Y moeten hex cijfers worden in- 
gevuld, dus een cijfer Oh tot en met Fh, dientengevolge kunnen er zestien 
variabelen worden geadresseerd. ledere variabele is één byte groot. 
Behalve instructies voor variabelen zijn er instructies om de loop van het 
programmate beïnvloeden, voor conversies, voor het display, enz. Als we 
de instructieset doorlopen, zie laatste pagina van dit hoofdstuk, wordt al- 
les duidelijk. 


De instructieset nader bekeken 
In de volgende paragrafen gaan we de voornaamste Chip instructies aan 
een nader onderzoek onderwerpen. 


Program flow 

De instructie 0000 (nop) doet niets en wordt meestal gebruikt om een of 
meer plaatsen te reserveren of in software vertragingslussen. Met instruc- 
tie 1MMM (jump) kan naar ieder adres in het programmageheugen wor- 
den gesprongen en met 2MMM (call sub at MMM) wordt een subroutine 
op adres MMM aangeroepen. Een subroutine moet altijd worden beéin- 
digd met OOEE (return from sub). Er zijn maximaal 8 nesting niveau's 
mogelijk. Instructie 0050 (break to operating system) beéindigt de uit- 
voering van een Chip programma op een gedefinieerde plaats en brengt 
de gebruiker terug in de commando processor. Ditzelfde is ook mogelijk 
door drukknop S1 in te drukken, dan echter is de plaats niet bekend. 


Set pointer 

Vaak is het nodig om variabelen te converteren van en naar decimaal of 
hexadecimaal. Dit gebeurt dan op de A-stack (arithmetic stack, rekenkun- 
dige stack). Dit zijn drie inwendige microcontroller registers. Door middel 
van een "pointer", die op alle adressen kan worden "gericht" zijn verplaat- 
singen (feitelijk kopiëren) van en naar variabelen mogelijk evenals naar 
het LCD en de A-stack en zelfs naar alle registers in de microcontroller. 
Omdat de A-stack zo belangrijk is, is er een aparte instructie om de pointer 
op de A-stack te richten, namelijk 00AA. MP is de geheugenplaats waar 
de pointer naar wijst. De instructie p + 1 zet de pointer 1 positie hoger en 
de instructie p + vx verhoogt de pointer met de waarde van variabele vx. 
Beide instructies worden als 16 bit optellingen uitgevoerd. Uitsluitend de 
instructies onder Set pointer kunnen de pointer veranderen. 
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De instructie save pointer slaat een kopie van de pointer intern op en res- 
tore pointer zet de kopie terug in de pointer. 


Pointer conversions on A-stack 

Er zijn vier conversie instructies namelijk: 

— variabele naar hexadecimaal; 

— variabele naar decimaal; 

— hexadecimaal naar variabele; 

— decimaal naar variabele. 

Voor deze conversies wordt de A-stack gebruikt en daarom moet met de 
instructie 00AA eerst de pointer daarop worden gezet. Vervolgens kan va- 
riabele X naar decimaal worden geconverteerd met 4X13 of naar hexade- 
cimaal met 4X12. De pointer blijft onveranderd. Stel dat variable A de 
waarde A7h heeft, dan geeft 4A13 het volgende resultaat: 


A-stack 31h 
A-stack * 1 36h 
A-Stack + 2 39h 


Merk op, dat dit de ASCII-waarden zijn voor respectievelijk 1, 6 en 9, het 
decimale equivalent voor A7. Omdat het LCD een "ASCII-device" is, kun- 
nen deze cijfers direct op het LCD worden gezet en wel met instructie 
DMN3. Willen we ze op positie 0, 1 en 2 van het LCD, dan wordt de in- 
structie D023. 

Als we alleen de tientallen en eenheden op het display willen laten zien, 
kan de pointer met instructie 00A1 (p * 1) op de tientallen worden gezet en 
de display instructie D013 kan worden gebruikt. 

Als we nu dezelfde variabele A met A7h naar hex willen converteren, dan 
gebruiken we instructie 4A12 en het resultaat is: 


A-stack 4ih 
A-stack + 1 37h 


Dit zijn de ASCII-waarden voor Ah en voor 7h. We zetten ze op LCD- 
positie E en F met instructie DEF3. 

De instructies 4X31 en 4X21 werken precies omgekeerd, waarbij het wel 
nodig is om eventuele voorlopende nullen op de A-stack te zetten. Dus om 
bijvoorbeeld het decimale getal 38 te converteren en in variabele C te la- 
den moeten de volgende getallen op de A-stack worden gezet (let op, de 
maximale waarde van een byte is 255d): 


A-stack 30 
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A-stack + 1 33 
A-stack + 2 38 


Na uitvoering van instructie 4C31 bevat variable C de waarde 26h, het 
hexadecimale equivalent van 38d. 


Pointer-Variable moves 

Met de instructies 5XY5 en 5XY7 worden één of meer variabelen geko- 
pieerd in het geheugen vanaf MP, dus het adres waar de pointer naar 
wijst, en vice versa. De pointer zelf wordt hierbij niet veranderd. X is de be- 
gin variabele en Y de eind variabele (X <= Y). Als de pointer naar adres 
200h wijst, zal instructie 5665 variabele V6 kopiëren op adres 200h. 
Omgekeerd zal dan instructie 5667 de inhoud van adres 200h kopiëren in 
V6. Zo kan iedere individuele variabele dus in het geheugen worden geko- 
pieerd en omgekeerd. Instructie 50F5 zal de variabelen 0-F in het geheu- 
gen kopiëren, VO komt op MP, V1 op MP + 1, enz. Door instructie 50F7 
worden de inhouden van de geheugenplaatsen 200h-20Fh gekopieerd in 
variabelen 0-F ervan uitgaande dat MP nog 200h is. Door middel van deze 
instructies kunnen variabelen in het programmageheugen worden be- 
waard en teruggezet. De instructie 5XY7 is uitermate handig om variabe- 
len in één keer vanuit het programmageheugen te initialiseren. 


Constants 

Hierbij krijgt VX direct de waarde KK (6XKK) of wordt KK bij VX opgeteld 
(7XKK). Als de optelling een overflow geeft, dan wordt VF = 01h, anders 
VF = 00h. Als FFh bij de variabele wordt opgeteld, dan wordt deze (door 
overflow) effectief met 1 verminderd. 


Skip instructies 

Uiteraard zijn er ook instructies om condities te testen. Hiervoor dienen de 
Skip instructies. Skip betekent “overslaan”, dus als de conditie “waar” is, 
wordt de erop volgende instructie overgeslagen. Dat zal dan bijna altijd 
een jump instructie zijn. Het werken met conditionele skips in plaats van 
met conditionele sprongen is even omdenken, maar na korte tijd is men er 
volkomen aan gewend. Zo betekent de instructie 9XKK: skip if VX = KK, 
dus de instructie 9600 betekent: als variabele 6 de waarde 00h heeft, zal 
de volgende instructie worden overgeslagen. De instructie 0011 (skip al- 
ways) is handig om een instructie onder te zetten, die in de normale pro- 
gram flow moet worden overgeslagen, maar wél moet worden uitgevoerd 
als er via een jump naar toe wordt gesprongen. Als skip always onder 
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een conditionele skip wordt gezet, heeft dat tot gevolg dat de conditie 
wordt omgekeerd, bijvoorbeeld: 
skip if VX = KK 


skip always 
jump to MMM 


heeft tot gevolg dat de sprong wordt uitgevoerd als VX = KK. 


Display 

Het LCD heeft zestien karakters, het linker is karakter Oh, het rechter ka- 
rakter Fh. Het display kan direct worden aangestuurd, maar ook indirect, 
door middel van twee variabelen. De instructie DMNO bijvoorbeeld wist 
het display te beginnen bij karakter M tot en met karakter N. Dus D330 wist 
alleen karakter 3 en DOFO wist alle karakters van het display. DXY8 wist 
het display vanaf het karakter dat in variabele X staat tot dat in variabele Y 
(X <= Y). 

Als de pointer op het begin van een karakterstring wordt gezet, kunnen ka- 
rakters op het display worden gezet met de instructies DMN3 of DXYB. 
Het LCD is een "ASCII-device", met andere woorden karakters die op het 
display worden gezet dienen conform de ASCII-tabel te zijn. 

De instructie DDDD, "Rotate text MP on display" laadt de string naar 
welks eerste karakter de pointer wijst, vanuit het geheugen in het geheu- 
gen van het LCD. De string mag maximaal 24 karakters lang zijn en moet 
eindigen met 00. Vervolgens wordt door het operating system eenmaal 
per seconde het commando shift naar het LCD gestuurd. Voordat de 
tekst verschijntis er een geluidssignaal evenals bij elke shift. Dit is voor de 
gebruiker een volkomen transparant proces. De tekstrotatie wordt beëin- 
digd door instructie DDDE, die het LCD ook reset. 


Timers 

Chip bevat vier timers, een alarm timer (tone), een timer en een minuten 
en seconden timer. Alle timers tellen omlaag tot ze nul zijn. De minuten en 
seconden timer zijn gekoppeld, dus als de minuten timer één lager wordt, 
dan wordt de seconden timer geladen met 3Bh (59d). Zolang de alarm ti- 
mer ongelijk nul is, wordt een geluidssignaal opgewekt. De maximale 
tijdsduur is 9 seconden. Dit is ook de maximale tijdsduur van de timer. Met 
instructies CX00 tot en met CX03 worden de timers in variabele X geladen 
en met instructies CX10 tot en met CX13 worden ze vanuit variabele X ge- 
laden. 
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Clock 

De real-time clock hoeft alleen te worden gelezen. Hiervoor dienen in- 
structies CX04 tot en met CX08. Door middel van enkele Chip instructies 
kan een lopende klok op het LCD worden getoond. Ook is het mogelijk om 
door middel van een tijdstring in het geheugen te controleren of de kloktijd 
gelijk is aan de stringtijd en hierop actie te ondernemen. Er kunnen meer- 
dere van deze tijdstrings in het geheugen staan. 


Random number 

Met instructie OXKK wordt vanuit de watchdog timer en de predivider van 
timer1 een random number (toevalsgetal) gegenereerd. Als masker dient 
KK. Dit wordt met het random number ge-AND waardoor het random 
number binnen gebieden kan worden begrensd omdat alleen de bits, die 
in het masker 1 zijn worden doorgelaten en de overige bits 0 worden. Met 
masker 07h kan het random number de waarden Oh tot en met 7h krijgen, 
met masker OFh de waarden Oh tot en met Fh, maar met masker 08h al- 
leen de waarden Oh of 8h. 

Let op: omdat de instructieset een aantal instructies bevat, waarvan de 
eerste twee cijfers OOh zijn, mag voor de random number variabele niet VO 
worden gebruikt. 


Arithmetic 

De “A”-groep bevat de logische en rekenkundige bewerkingen. Hierbij zijn 
altijd twee variabelen betrokken VX en VY, waarbij VX is te beschouwen 
als de accumulator, dus de variabele die het resultaat zal bevatten (uitge- 
zonderd AXY0 en AXY6). Bij de instructies AXY4, AXY5 en AXY7 (en ook 
7XKK) wordt variabele VF gebruikt om de carry, borrow of overflow in te 
zetten. Na deze instructies zal VF 01h zijn bij een carry, borrow of overflow 
(anders 00h). De instructies AXY6 en AXY7 kunnen worden gebruikt om 
een waarde te "schalen". Door AXY6 worden VX en VY met elkaar verme- 
nigvuldigd en als 16 bit getal op de A-stack gezet. Instructie AXY7 deelt dit 
16 bit getal door de 8 bit variabele VY. Als het resultaat van de deling gro- 
ter is dan FFh en daardoor te groot voor de variabele, wordt de overflow 
gezet. De instructies AXY6 en AXY7 zijn heel eenvoudig te gebruiken. 
Stel dat VO een waarde bevat die door een temperatuursensor is gemeten 
en dat deze waarde met 37h/58h moet worden vermenigvuldigd (ge- 
schaald) om een waarde in graden Celsius te krijgen: 


6137 V1 = 37h 
6258 V2 = 58h 
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00AA set pointer to A-stack 
A016 MP = VO * V1 

A027 VO - MP/V2 

Digital UO 


Inwendig bevat Chip 15 uitgangen Oh tot en met Fh, waarvan er 5 (0-4) op 
connector K1 naar buiten zijn gevoerd. Alle uitgangen kunnen met instruc- 
tie E21N worden geset en met instructie E20N worden gereset, waarbij N 
het nummer van de uitgang is. De stand van iedere uitgang kan door mid- 
del van de conditionele skip instructies E11N of E10N op hoog of laag zijn 
worden getest. Dit maakt het mogelijk om uitgangen 5h tot en met Eh als 
bitvlaggen te gebruiken, dus om iets te onthouden. Bitvlag Fh wordt iedere 
seconde door het operating system gezet. Dat is handig om bijvoorbeeld 
een real-time klok op het LCD eenmaal per seconde te refreshen (waarbij 
bitvlag Fh natuurlijk wel moet worden gereset). 

De vijf (0-4) digitale ingangen kunnen eveneens door middel van conditio- 
nele skips worden uitgelezen. 


Analog UO 

De F-groep is voor de analoge I/O. Dit betreft dus het inlezen van een 
spanning van de ingangen en het sturen van de servo's. Instructie F3F2 
leest van ingang 2 de analoge waarde en zet deze in V3. De maximale 
waarde is FFh en de minimale waarde is 00h, respectievelijk de spannin- 
gen op de V,, en Gnd aansluitingen van de microcontroller. 

Instructie FXON doet hetzelfde, maar voegt er een extra bewerking aan 
toe, namelijk de hoge nibble van VX wordt verplaatst naar de lage nibble 
en de hoge nibble krijgt de waarde 3. Zo krijgt variabele X de ASCII waar- 
de die overeenkomt met een ingedrukte toets van het Chip keyboard. Als 
er geen toets is ingedrukt krijgt VX de waarde 3Fh. 

Standaard is de servo drive uitgeschakeld, met FEE1 wordt de pulsop- 
wekking aangezet en met FEEO uitgezet. Met FXE2 en FXE3 wordt de 
pulstijd ingesteld voor respectievelijk servo 1 en servo 2. 


Chips foutafhandeling 

Chip bevat een foutafhandelingssysteem, dat foutieve instructies op- 
vangt. Als een fout wordt ontdekt, wordt op het scherm een foutmelding 
gegeven met opgave van het adres waar de fout is gevonden. De uitvoe- 
ring van het Chip programma wordt beëindigd en er wordt teruggekeerd 
naar de commando processor. 
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Uitzonderingen 

Omdat voor rekenkundige instructies variabele VF als carry, borrow of 
overflow vlag wordt gebruikt, is het is raadzaam om in een programma de 
variabele VF niet als normale variabele te gebruiken. Datzelfde geldt voor 
output F, die eenmaal per seconde door het operating system wordt gezet 
en die kan worden gebruikt om een bepaalde actie eenmaal per seconde 
uit te voeren. 

Voor het genereren van een random number mag VO niet worden ge- 


bruikt. Dat zou tot onvoorspelbare fouten leiden. 


Chip instruction set 


Program flow 

0000 nop 

1MMM jump to MMM 

2MMM call sub at MMM 

00ЕЕ return from sub 

0050 break to operating system 


Set pointer 

00AA set pointer to A-stack 
3MMM set pointer to MMM 
00A1 pointer + 1 

4x00 pointer + VX 

0020 save pointer 

0021 restore pointer 


Pointer conversions on A-stack 
4X13 VX -» 3 decimals MP 

4x31 VX = 3 decimals MP 

4x12 VX -» 2 hex MP 

4x21 VX - 2 hex MP 

(Pointer not changed, MP = MSD) 


Pointer-Variable moves 
5x5 WX...VY -> MP 
5x7 MP -> VX...VY 


Constants 
KK 
VX + KK (VF = carry) 


always 
if 
if 
if 
if 
if 
if 


Mnemonic 


nop 

jp address [label] 
call address [label] 
ret 

break 


Mnemonic 

p = a-stack 

p = address [label] 
P+ 1 

р + vx 

save p 

rest p 


Mnemonic 
vx to 3dec mp 
vx = 3dec mp 
vx to 2hex mp 
vx = 2hex mp 
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Display Mnemonic 


| DMNO 
DXY8 
DMN3 


DXYB 


DDDE 


Timers 
схоо 
схо1 
схо2 
схоз 
сх10 
CX11 
CX12 
CX13 


Clock 
Cx04 
cx05 
cx06 
CX07 
схов 


Clear display from M to N cd m,n 

Clear display from VX to VY cd vx,vy 
Load display from M to N 1d m,n 

(from MP) 

Load display from VX to VY ld vx,vy 
(from MP) 

Rotate text MP on display rotate 
(string must end with 00, max 24d characters) 
stop rotate, clear display stop rotate 


Alarm timer 

Timer 

Seconds timer vx = sectimer 
Minutes timer = mintimer 
Alarm timer to tone (1C-1s) 
Timer to timer (1C-1s) 
Seconds timer to sectimer 
Minutes timer to mintimer 


ЯЯЯЯЯяяя 


Weeks 
Days 
Hours 
Minutes 
Seconds 


EECH 


Random number 


Note: 


VX = Random number 
(KK is .AND. mask) 
do not use VO 


= carry) 
= borrow) 


- overflow) 
а-. -stack for AXY6 and AXY' 


Digital I/O 


E20N 
E21N 
E10N 
E11N 
EOON 
EO1N 
Notes: 


Reset output N 

Set output N 

Skip if output N= 0 0 
Skip if output N = 1 i 1 
Skip if input N - 0 skip inn = 0 
Skip if input N= 1 skip inn = 1 
there are 5 inputs (0-4) 

and 16 outputs from wich 5 (0-4) 

have pins, 5-E can be used as bitflags. 
Outputs are default 0 

Output F is set every second by the operating system 
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Analog I/O Mnemonic 
VX = analog input N vx = апа n 
VX = keyboard input N vx - key n 
Stop servo drive soff 
Start servo drive son 
VX -» servo 1 vx to s1 
VX -» servo 2 vx to s2 
digital inputs are switched 
to analog during conversion and the pull-up 
resistor (appr. 200 kohms) is disabled. 
Keyboard values are 30h-3bh, 3fh - no key pressed 
Default servo values are 80h 


Chip assembler directives 
This is a comment at the beginning of a line 

org address ; comment midline 
equ address 
bytes 001122....ff 
asciz "Hi, I'm Chip!" 
an odd number of bytes will be concluded with 00 
asci-zero will be concluded with 00 or 0000 


Positioning of characters on display 
character 0 ....... Character f 


st62 internal 


Chip programs 
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3 Assembler, voorbeelden en 
keyboard 


Chip assembler 

De Chip assembler is gemaakt om het schrijven van Chip programma’s zo 
eenvoudig mogelijk te maken. De assembler genereert de macro instruc- 
ties en berekent de sprongen en pointer posities. De assembler doet dit 
aan de hand van de mnemonics, die in de Chip instructieset staan. Een 
mnemonic is een verkorte schrijfwijze van een instructie, die gemakkelijk 
is te onthouden en die de instructie eenduidig aangeeft. Bij veel instructies 
wordt een variabele geladen of wordt een kopie van de variabele in een 
geheugenadres geschreven. Om dit onderscheid eenduidig vast te leg- 
gen en ook omdat het gemakkelijk is te onthouden, wordt voor het laden 
van een variabele de schrijfwijze: 


VX =... 


gebruikt en voor het laden van een adres vanuit een variabele: 


VX to ... 


Het Engelse woord "to" betekent "naar", het geeft eenduidig een bestem- 
ming aan. 


DOS tekstverwerker 

Voor het schrijven van Chip programma's in assembly is een tekstverwer- 
ker nodig die gewone DOS-tekst maakt, dus er geen opmaakcodes of iets 
dergelijks tussenvoegt. Programma's als Word of WordPerfect zijn abso- 
luut verboden! Windows Kladblok is bruikbaar, maar een kleine DOS 
teksteditor, zoals bijvoorbeeld EDT (Norton Editor), is veel handiger. Ook 
het Windows shareware programma TextPad is zeer geschikt. 


Samenstelling assembler code 

Een regel in de Chip assemblertaal is als volgt opgebouwd: 

label mnemonic opfield 

Het label dient voor de adresaanduiding, het eerste karakter moet a - z of 


A - Z zijn. De lengte van een label is maximaal acht karakters. Als een la- 
bel niet nodig is, moet het eerste karakter van de regel een spatie of een 
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tab zijn. Demnemonics kunnen worden gehaald uit de Chip instructieset. 
De spaties in de mnemonics mogen eventueel worden weggelaten. 
Achter de mnemonic kan, na een spatie of een tab, een opfield staan. Bij 
Chip zal dat altijd een adres of een adreslabel zijn. 


Assembler aanwijzingen 
Er zijn vijf assembler aanwijzingen (directives), die een speciale betekenis 
voor de assembler hebben. 


; 

Als het eerste karakter van een regel ; is, dan wordt die regel als een com- 
mentaarregel beschouwd. Ook kan na de mnemonic of, indien aanwezig 
het opfield, na ; commentaar worden opgenomen. 


org adres 

De tweede aanwijzing is org adres. Dit heeft tot gevolg dat het program- 
ma(deel), dat op org volgt, begint op adres. De regel met org wordt na as- 
semblage een commentaarregel en mag daarom geen label bevatten. 


label equ adres 

De derde aanwijzing is label equ adres. Hier wordt aan een label een 
adres toegewezen. Dat is bijzonder handig als met interne registers van 
de microcontroller wordt gewerkt. In plaats van het lastig te onthouden 
adres kan de naam van het interne register worden gebruikt. Deze regel 
wordt ook een commentaarregel in het hex-bestand. 


bytes 00112233..... 
De vierde aanwijzing is bytes 00112233...... Dit heeft tot gevolg dat de by- 
tes 00h, 11h, 22h. 33h, enz. in het programma worden opgenomen. Als de 
laatste byte op een even adres staat wordt het erop volgende oneven 
adres opgevuld met OOh. 


asciz “Hi Pam Chip!” 

De vijfde en laatste aanwijzing is asciz “Hi l'am Chip!". Hier wordt de 
tekst die tussen de dubbele aanhalingstekens staat omgezet in het 
ASCII-equivalent in bytes. De assembler sluit de string af met 00 of 0000, 
om de volgende instructie op een even adres te kunnen zetten. Het sluit- 
karakter 00 is nodig voor tekst die op het display moet roteren. 
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Opmerking over bestanden 
Het achtervoegsel van een in Chip assembly geschreven programma 
moet altijd .asm zijn, anders wordt het niet door de assembler herkend. 


Chipasm.exe 

De assembler Chipasm.exe (zie www.vego.nl/chip) wordt gestart met 
Chipasm naam. Hierin is “naam” de naam van het te assembleren pro- 
gramma. Het achtervoegsel .asm mag worden weggelaten. 

Als door de assembler geen fouten worden geconstateerd, dan wordt een 
‚hex bestand gegenereerd, waarvan het voorvoegsel hetzelfde is als van 
het .asm bestand. Als er wel fouten worden geconstateerd, dan wordt een 
melding van de aard van de fout en het regelnummer op het scherm ge- 
zet. 

Het .hex bestand is vrijwel identiek aan het .asm bestand, met dien ver- 
stande dat nu de adressen en macro's zijn ingevuld en de regels met org 
en equ commentaarregels zijn geworden. Als het programma wordt afge- 
drukt, kan het met commando prog in de EEPROM worden gezet of wor- 
den ge-upload met het terminalprogrammaChipterm.exe. 


Opmerking 

Het is handig als Chipasm.exe en Chipterm.exe in één map worden gezet, 
waarin ook de Chip programma's komen te staan. In de map kan ook de 
DOS-tekstverwerker worden gezet, dat is wel zo makkelijk. Wij hebben 
Chipasm.exe en Chipterm.exe hernoemd in CA.exe en CT.exe. Boven- 
dien is de DOS-tekstverwerker (EDT.exe) in een batchbestand (ED.bat) 
opgenomen, dat het achtervoegsel .asm achter de naam voegt. 


Chip VB Terminal 

In plaats van het compacte (ca. 50 kB) en snelle DOS-programma Chip- 
term.exe kan ook het Windows-programma Chip VB Terminal worden 
gebruikt (Windows versies 95 en 98). Dit programmais het bij Visual Basic 
6 geleverde terminal voorbeeldprogramma, waarvan de tekstverzending 
is aangepast voor de verzending van Chip hex-bestanden, zie figuur 3-1. 
De instelling van de vertraging geschiedt met een schuifregelaar in het 
Properties tabblad. Het programma ziet er mooier uit dan Chipterm, maar 
voor een functionaliteit die nagenoeg gelijk is, doet het een veel grotere 
aanslag op de computerbronnen. Na downloaden van www.vego.nl/chip 
kan het worden geinstalleerd door het Setup-programma. 
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Figuur 3-1: Chip VB Terminal tijdens de verzending. 


Opmerking 

Zowel ChipTerm als Chip VB Terminal hebben de mogelijkheid om .log fi- 
les te gebruiken. Hierin kan de inhoud van Chip's EEPROM worden geko- 
pieerd (door in prog de + toets ingedrukt te houden). Zo kan Chip ook als 
datalogger worden gebruikt, waarbij de gegevens op de computer kunnen 
worden verwerkt. 


Testfile.asm 

Het bestand Testfile.asm (niet afgedrukt in dit boek, alleen te vinden op 
www.vego.nl/chip) is geen Chip-programma; de inhoud van ieder adres is 
gelijk aan het adres zodat, voor alle zekerheid, eenvoudig kan worden ge- 
controleerd of het uploadproces foutloos geschiedt. Bij lange bestanden 
als Testfile.asm is het mogelijk, dat niet elke upload foutloos is. Probeer 
het opnieuw als er een checksumfout is. 


First.asm 

Het programma in listing 3-2 (First.asm) geeft een voorbeeld van de op- 
bouw van een Chip programma en laat het gebruik zien van enkele in- 
structies. Wij gebruiken in Chip programma's uitsluitend onderkast (kleine 
letters) behalve soms in commentaarregels. 

Als het programma is geladen, kan het met CA worden geassembleerd. 


CT.exe 

Om het hex-bestand in Chip te laden moet CT worden gestart. Als CT voor 
het eerst wordt gestart, wordt om de te gebruiken COM-poort gevraagd. 
Deze wordt opgeslagen in het bestand Chipterm.ini. 
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; Listing 3.2: First.asm 

; Programma om de call en break instructies te demonstreren, 

; het gebruik van de assembler aanwijzingen org en asciz en de 
; display instructie 1d m,n 


start call showtxt ; call sub showtxt 
break ; break to op system 
; subroutine showtxt 
org 50 ; start address of sub 
р = showtx1 ; point p to text string 
ld 9,E ; load display from char 0 to f 
ret ; return from sub 
showtx1 asciz "My first program" 


; end of First.asm 


Listing 3-2: De listing van First.asm. 


Belangrijk 

In dit bestand staat ook een getal, voor de pauze tussen het versturen van 
de hex-getallen tijdens het uploaden. De hardware timer van de PC is 
daarvoor niet fijnmazig genoeg. Pas dit getal aan tot het uploaden zo snel 
mogelijk gaat, zonder foutmeldingen. Gebruik daarvoor de DOS tekstver- 
werker. Als tijdens het uploaden een fout optreedt, stopt het uploaden en 
hangt Chip. Druk op S1 en probeer het opnieuw. 

Door in CT de menukeuze ALT- te kiezen, verschijnt een venster waarin 
de naam van het .hex bestand kan worden opgegeven. Het achtervoegsel 
mag worden weggelaten. Na het drukken op Enter wordt het bestand naar 
Chip gestuurd. Met het commandoChip wordt het gestart. 


Waar is de poort gebleven? 
Soms ziet een in een Windows DOS-venster draaiend programma de se- 
riéle poort niet. Neem dan in system.ini onder [386Enh] de aanwijzing: 


ComNAutoAssigned=0 


op, waarbij N de gebruikte COM-poort is. 


Rechtstreeks adressen wijzigen 

We zouden natuurlijk in First.asm de mnemonic Id 0,f kunnen veranderen 
in rotate om de tekst te laten roteren, opnieuw assembleren en uploaden, 
maar het kan ook anders. 
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Als we het bestand First.hex in de tekstverwerker openen, zien we immers 
op adres 0052h de instructie DOF3 staan, waarmee de tekst op het display 
wordt gezet. Met prog 52 komen we op dit adres en kunnen direct DDDD 
invoeren en het programma starten. En inderdaad, de tekst roteert nu op 
het display! 


Charset.asm 

We willen ook graag weten hoe de ASCII-karakterset van het display er 
precies uitziet. Vooral de extended karakters interesseren ons, omdat die 
per LCD kunnen verschillen en we willen weten welk teken we het best 
voor ? (graden) kunnen gebruiken voor de temperatuurmeting. In listing 
3-3 is het programma Charset.asm te zien dat precies dat doet. Eerst zet- 
ten we de pointer op de asciz tekst en laden het hele display. Dan wordt de 
pointer op de A-stack gezet en v0 wordt 00 gemaakt. We gebruiken out- 
put f om een keer per seconde een aflezing te krijgen, want output f wordt 
iedere seconde door het Operating System gezet. 


; Listing 3.3: Charset.asm 
; display characterset of the LCD 
p = charse2 ; point p to text 
ld O,f ; load display 
p - a-stack ; point p to a-stack 
v0 = 00 ; v0 is counter 
charsel skip out £ = 1 ; wait till out f becomes 1 
jp сһагѕе1 ; not yet 1, jump back 
res out f ; out f - 1, reset out f 
v0 to 2hex mp ; convert vO t0 2 hex 
ld 5,6 ; load display with hex char's 
v0,v0 to mp ; copy v0 into mp 
ld £,£ ; and load mp into display pos f 
vO + 01 ; update counter 
jp charsel ; jump back into wait loop 
asciz "Byte is LCD * 


Listing 3-3: De listing van Charset.asm. 


In een lus wachten we dus rustig tot output f wordt gezet en zodra dat het 
geval is, wordt de jump geskipt (overgeslagen) en kunnen we aan het 
werk. Eerst moet natuurlijk output f worden gereset en dan wordt v0 om- 
gezet in twee hex-cijfers, die met Id 5,6 op positie 5 en 6 op het display 
worden gezet. Nu kopiëren we vO naar mp en laden displaypositie f vanuit 
mp. 
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Nadat vO met 1 is verhoogd, is het werk gedaan en springen we terug in de 
wachtlus. 

We assembleren het programma, laden het in Chip en starten het. Beken- 
de, maar ook heel vreemde karakters passeren ons oog. Die zullen wel 
Japans zijn, want de LCD-controller komt uit Japan. Na even wachten 
zien we gelukkig een karakter verschijnen dat we prima als gradenteken 
kunnen gebruiken. 

Ons werk heeft zich geloond en we drukken op S1 om naar de comman- 
doprocessor terug te keren! 


Labels benoemen? 

Weliswaar werkt Charset perfect, maar toch komt misschien de vraag op, 
waarom de labels geen namen hebben als wait en tekst? Wel, het is be- 
ter om als labelnaam de naam van de (sub)routine te gebruiken in combi- 
natie met een volgnummer (0...9, A...Z). 

Vooral in grote programma's, met veel labels, wordt de structuur veel dui- 
delijker en is de kans op fouten door dubbele labels kleiner. 


Hexval.asm 

Voor veel toepassingen moet de gebruiker gegevens kunnen invoeren als 
bijvoorbeeld een temperatuur, het aantal NiCad-cellen of het aantal minu- 
ten en seconden voor een goed gekookt eitje. We hebben een keyboard 
nodig. Er is maar één mogelijkheid om het keyboard op Chip aan te sluiten 
en dat is op een input. Vooraf moeten we testen of dat wel mogelijk is, 
want anders doen we werk voor niets. 

Aan een snoertje met drie gekleurde aders sluiten we een 3-polige female 
SIL-header aan, voor de verbinding met input 1. We werken de verbin- 
dingen netjes af met krimpkousjes want het snoertje zal ons zeker vaker 
van pas komen. Op de open kant sluiten we een potentiometer van 10 kQ 
aan, zodanig dat de spanning op de in-pen regelbaar is. De weerstands- 
waarde van de potentiometer is niet echt belangrijk, alles tussen 1 kO en 
100 kQ is bruikbaar. 

Nu komt het programma Hexval.asm (listing 3-4) prima van pas. Ook hier 
maken we gebruik van de secondenvlag output f, voor een duidelijke 
weergave op het betrekkelijk langzame display. Voor de eigenlijke meting 
zorgt een subroutine onder de skip, zodat nu de opdracht skip out n = 0 
moet worden gebruikt. 

We assembleren het programma, laden en starten het. Op het display ver- 
schijnt een waarde. We verdraaien langzaam de potmeter en wat blijkt, 
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het is mogelijk alle waarden van 00h tot en met FFh te meten. De proef is 
prima geslaagd. Het keyboardje moet lukken. 


; Listing 3.4: Hexval.asm 

; show analog voltage on input 0 once a second on the LCD 

; display. 

; use output flag f, which is set every second by the operating 
; system. 


p - hexval2 ; point p to display text 
1а 0,f ; load initial display 
p = a-stack ; point p to a-stack 
skip out f - 0 ; wait for f to be set 
call hexsub ; f is set, call hexval sub 
јр hexvall ; and loop 

hexval2 asciz "HEX value - * 


hexsub res out £ ; reset seconds flag 
vi = 04 
vl to tone 
v0 - ana 0 ; get voltage from input 0 into v0 
vO to 2 hex mp ; convert into 2 hex chars 
ld c,d ; put 2 hex chars on display 
ret ; and return 


Listing 3-4: De listing van Hexval.asm. 


Servopot.asm 

Nu we toch een potentiometer hebben aangesloten willen we onderzoe- 
ken of daarmee een servo kan worden gestuurd. Op servo 1 sluiten we 
een Futaba 53003 servo aan, een goedkope en goede servo. In listing 3-5 
staat het programma Servopot.asm. Met son starten we de servopuls, 
dan laden we het display met de tekst en zetten de pointer op de A-stack. 
Dan meten we de potentiometerspanning in vO en kopiëren vO naar s1. 
Als de secondenvlag niet is gezet blijven we in de lus. Als de seconden- 
vlag wel staat, wordt deze gereset, waarna vO wordt geconverteerd naar 3 
decimale getallen. Deze worden op het display gezet en met een jump 
springen we terug in de lus. Het programma werkt goed. Met de potentio- 
meter kan de servo heel precies worden geregeld. Deze kennis zal zeker 
van pas komen bij de bouw van de robot. 


Het keyboard 


Als keyboard gebruiken we een type met 12 toetsen (0-9, * en #). De toet- 
sen hebben een gemeenschappelijke aansluiting en iedere toets heeft 
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een eigen aansluiting. Zo is het mogelijk om iedere toets in een span- 
ningsdeler op te nemen en bij indrukken een eigen, unieke spanning te la- 
ten afgeven. De schakeling van het keyboard is getekend in figuur 3-2. In 
de tabel eronder staan de namen van de toetsen en de hex-waarde van 
de spanning die bij indrukken wordt gemeten. 


; Listing 3.5: Servopot.asm 
; rotate servo 1 by turning pot connected to input 1 


start servo drive 


p - servop2 point p to text 


1а O,f load text to lcd 
p = a-stack point p to a-stack 

servop1 v0 - ana 1 v0 is voltage from input 1 
v0 to si load vO into servo 1 
skip out £ = 1 skip if seconds flag out f 
jp ѕегуор1 jump start ofloop 


v0 to 3dec mp convert v0 into 3 decimals mp 
ld 9,b load lcd positions 9,b 
jp servopl jump to start of loop 


res out f ; reset seconds flag 
asciz "potval - ??? dec" 


servop2 


isting 3-5: De listing van Servopot.asm. 


m 


Figuur 3-2: Het schema van het toetsenbord. 


De weerstanden zijn aan de onderkant van het keyboard gemonteerd met 
aan de achterkant een drie-aderig snoertje met daaraan een connector, 
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precies zoals het snoertje voor de potmeter. In het schema staan 1 % 
weerstandswaarden, maar persé nodig is dat niet. Het belangrijkste is dat 
de lage nibble van iedere toets ligt tussen 5h-Ah, dan is de tolerantie vol- 
doende. Met Hexval.asm in listing 3-4 kan voor iedere toets de weer- 
standswaarde proefondervindelijk worden bepaald. Bij gebruik van 5 % 
weerstanden zal het soms nodig zijn om twee weerstanden in serie te 
schakelen, maar het lukt altijd om een passende hex-waarde te krijgen. 


Keytest.asm 

Zoals we eerder hebben gezien is Chip "ASCII-georiénteerd", dus moeten 
ook de toetsen een ASCII-waarde afgeven: 30h tot en met 39h, 3Ah en 
3Bh. Dat is nu precies wat de instructie vx = key n doet. Als er een toets is 
ingedrukt, wordt die ontdenderd en nogmaals gemeten. Met het program- 
ma Keytest.asm (listing 3-6) kan worden getest of het keyboard goed 
werkt. Als er een toets wordt ingedrukt wordt er een piepje gegeven en de 
ASCII-waarde in hex op het display gezet. Dan wordt gewacht tot de toets 
wordt losgelaten. 


Opmerking 

Dit voorbeeld werkt goed, maar er zijn situaties waarbij niet gewacht mag 
worden omdat de hoofdlus van het programma altijd door moet draaien. 
Ook dat is op te lossen zoals we in een later stadium zullen zien. 


; Listing 3.6: Keytest.asm 
; test command vx - key n 
01 ; va is key beep 
- keytes3 ; load display 

1а 0,£ 

p - a-stack ; point p to a-stack 
keytes1 v0 = key 0 ; get key value 

v0 to 2hex mp ; convert to hex... 

1а c,d ; ...and put on display 

skip v0 <> 3f ; skip on key press 

jp keytesl ; loop 

va to tone ; give beep 
keytes2 v0 = key 0 ; get key value 

skip vO = 3f ; Skip on no key press 

jp keytes2 ; loop untill key release 

jp keytes1 ; jump for next key press 
keytes3 asciz "key value - h” 


Listing 3-6: De listing van Keytest.asm. 
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Experimenteerbord 

Ondertussen is het misschien een goed idee om een experimenteersys- 
teem te maken door Chip, het LCD en het keyboard op een plankje te 
monteren, zie figuur 3-3. Op het plankje kan ook de NiCad-accu een 
plaatsje vinden. Van dit systeem zullen we veel profijt hebben bij onze 
verdere ontwikkelingen. 


ES 
See 
е 
Si 


© 


ls 


Figuur 3-3: Het Chip experimenteersysteem. 
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4 Gebruik van het keyboard 
en een timer 


Inleiding 

Bij veel programma's moet de mogelijkheid bestaan om gegevens in te 
voeren. Bij Chip zullen dat altijd getallen zijn, de cijfers 0 tot en met 9. Met 
het keyboard kan dat en de extra toetsen * en # bewijzen daarbij ook hun 
nut. Zo kan de * toets bijvoorbeeld als menukeuzetoets worden gebruikt 
en de # toets als bevestigingstoets. Hiermee kan dan een menusysteem 
worden gemaakt, bestaande uit meerdere menu's en bij de menu's beho- 
rende invoerschermen voor de ingave van de gegevens. 

Het inlezen van het keyboard is dus heel belangrijk en daarom beschrij- 
ven we twee methodes, de eerste is heel eenvoudig, de tweede is wat in- 
gewikkelder omdat het hoofdprogramma daarbij altijd doorwerkt. 


Eenvoudige keyboarduitlezing 

Zolang geen toets van het keyboard is ingedrukt, is de uitleeswaarde die 
key geeft 3F. Zodra een toets wordt ingedrukt, wordt de waarde 30-3B, af- 
hankelijk van de ingedrukte toets. Bij iedere volgende uitlezing wordt de- 
zelfde waarde verkregen zolang de toets ingedrukt blijft. Maar we willen 
voor iedere toetsdruk slechts éénmaal de toetswaarde. Een eenvoudige 
methode om dat te doen is, om na inlezing en verwerking van een geldige 
toetswaarde, te wachten tot de toets wordt losgelaten. 

In figuur 4-1 is het stroomdiagramte zien van een op deze methode geba- 
seerd programma. 

Direct na de start wordt getest of er een toets ingedrukt is. Als dat het ge- 
val is, wordt een LED getoggled, dus aangezet als hij uit is en uitgezet als 
hij aan is. Daarna wordt gewacht tot de toets wordt losgelaten. Deze me- 
thode werkt heel goed zoals na het laden van het programma Keyled.asm 
(listing 4-1) zal blijken. 

Het keyboard is aangesloten op input 0 en op output 0 is een LED aan- 
gesloten. De 3 mm (low current) LED is op een 3-polige female printhea- 
der gesoldeerd, die op output 0 is gezet. De LED kan zo dus op ieder ge- 
wenste output worden gezet, wat voor het testen van programma's handig 
kan zijn. 

Bij iedere toetsdruk verandert de LED van toestand. Er wordt direct op ie- 
dere toetsdruk gereageerd, maar wat niet is te zien, is dat de programflow 
stagneert zolang de toets ingedrukt blijft door de sprong naarwaitrel. 
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Start koylod 


Figuur 4-1: Het stroomdiagram van de eenvoudige toetsenborduitlezing. 


; Listing 4.1: Keyled.asm 
; each keypress toggles out 0 on or off 
; program waits for key release 
start v0 = key 0 
skip v0 <> 3f 
jp continu 


toggle skip out 0 = 1 
je togglel 
res out 0 
skip a 

toggle1 set out 0 


waitrel v0 = key 0 
skip vO = 3f 
jp waitrel 

continu jp start 


Listing 4-1: De listing van Keyled.asm. 


Nonstop keyboarduitlezing 

Voor sommige toepassingen is het belangrijk dat een hoofdlus altijd wordt 
doorlopen. Dat kan bijvoorbeeld bij een acculader zijn waarbij de laad- 
stroom op een bepaalde waarde ingesteld moet blijven. Als dan ook toets- 
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invoer nodig is, kan niet worden gewacht tot de toets wordt losgelaten. De 
uitlezing van het toetsenbord mag geen stagnatie geven in loop van de re- 
gellus. Vandaar dat deze methode wel “nonstop” wordt genoemd. 

In figuur 4-2 is het stroomdiagram van het nonstop keyboard uitleespro- 
gramma Getkey.asmte zien. Het is een subroutine, die altijd wordt doorlo- 
pen en een returnwaarde geeft, die afhankelijk is van de toestand van het 
keyboard. Er worden twee vlaggen gebruikt om de toetstoestand te ont- 
houden. Een dergelijk gebruik van vlaggen wordt ook wel eens vergele- 
ken met een semafoor, een stellage waar vlaggen kunnen worden 
gehesen, die een bepaalde betekenis hebben. 


; Listing 4.2: Getkey.asm 
testprogram for getkey subroutine 


; Remark: press key for some seconds, wait after key release 
; Some seconds 


tart Р = getktxt 
1а 0,f 
a-stack 
80 ; time out value 
03 ; beep time 
; 
mainlo skip out £ = 1 
jp mainlo 
res out £ 
call getkey 
v0,v0 to mp 
38 £f 
jp mainlo 


getktxt asciz "Getkey return: 


; Subroutine getkey 


; v0 - return value: key press 3035 
no key press ЗЕ 
time out 54 
; after first key release the time out is activated 
time out can be disabled by resetting the key up flag: out e 


getkey v0 = key 0 
skip v0 <> 3f ; skip when key is pressed 
jp getkey2 ; no key press, jump 
skip out d - 0 ; skip when key down flag not set 
jp getkeyl ; key down flag is set, jump 
ve to tone ; give beep 
set out d ; set key down flag 
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res out e ; reset key up flag 
ret 
getkeyl ; key down flag set, return v0 = 3f 
ret 
gelkey2 skip out d= 1 ; skip when key down flag is set 
jp getkey3 ; key down flag not set, jump 
res out d ; reset key down flag 
set out e ; set key up flag 
vd to timer ; load time out 
fet ; return with vO = 3f 
getkey3 skip out e 1 Skip when key up flag is set 
ret key up flag not set, return with 
v0 = ЗЕ 
v0 = timer ; key up flag was set, get time out 
skip vO <> 00 skip on no time out 
jp getkey4 
; no time out, return with vO = ЗЕ 
ret 
getkey4 ; time out, return with vO - 54 ("T") 


Figuur 4-2: Het stroomdiagram van Getkey.asm. 


De key down flag wordt gezet als een toets wordt ingedrukt, de key up 
flag als een toets wordt losgelaten. De vlaggen zijn in eerste instantie ge- 
reset (outputs van Chip). Uit het stroomdiagram blijkt dat de routine wordt 
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verlaten via 4) return 3F. Na het indrukken van een toets wordt het pro- 
gramma via 2) verlaten met de waarde van de toets als returnwaarde. 
Onderweg wordt de alarmtimer geladen voor een keybeep, de key down 
flag gezet en de key up vlag gereset (wat bij de eerste doorgang al het ge- 
val was). Bij de volgende doorloop zal de toets nog ingedrukt zijn en wordt 
het programma verlaten via 1) ook met returnwaarde 3F. Na verloop van 
tijd wordt de toets losgelaten en bij de volgende doorloop wordt het pro- 
gramma verlaten via 3) met als returnwaarde weer 3F. Nu worden onder- 
weg de key down vlag gereset, de key up vlag gezet en een time out 
geladen. Als de toets los blijft en er is geen time out, dan wordt het pro- 
gramma via 5) verlaten met als returnwaarde 3F en als de toets niet tijdig 
weer wordt ingedrukt, loopt de time out af en wordt het programma via 6) 
verlaten met als returnwaarde 54. 


De waarden 3F en 54 

De waarden 3F en 54 zijn eigenlijk willekeurig gekozen. De returnwaarde 
ЗЕ is de waarde die het keyboard geeft als geen toets is ingedrukt en is de 
ASCIl-waarde voor ?. De waarde 54 is de ASCII-waarde voor T, toepas- 
selijk voor time out. 


De routine Getkey 

De routine Getkey moet altijd worden doorlopen en zal daarom in een lus 
zitten. Er zijn daarbij enkele zaken die aandacht vragen. In de eerste 
plaats moet direct na Getkey de returnwaarde worden geanalyseerd. Zo- 
lang die 3F is, is er geen geldige toets, bij 54 is er time out en een andere 
waarde is een geldige toets. Pas na het indrukken en weer loslaten van 
een toets wordt de time out gestart. De time out geldt hier dus niet voor de 
tijd dat een toets ingedrukt blijft. Dat is ook niet nodig, want een ingedrukte 
toets zal ooit wel worden losgelaten. Als het vereiste aantal toetsdrukken 
“binnen” is, kan de time out worden uitgezet door de key up vlag te reset- 
ten. Na de eerste toetsdruk geeft een “gezette” key up vlag aan dat de 
toets “los” is. 

In listing 4-2 wordt de subroutine Getkey in een eindeloze lus door het 
hoofdprogramma opgeroepen. De time out waarde en de beeptijd worden 
vooraf insteld met vd respectievelijk ve. Deze variabelen evenals key 
down vlag out d en key up vlag out e moeten hier verder maar gereser- 
veerd blijven. De time out en beep time kunnen natuurlijk ook direct wor- 
den geladen. Voor de returnwaarde wordt vO gebruikt. Getkey wordt door 
het hoofdprogramma eenmaal per seconde aangeroepen, anders zou 
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een geldige toetswaarde direct worden overschreven met 1) return 3F. 
Vandaar dat het keyboard ook vertraagd moet worden bediend. 


Een timer 

In de Eggtimer (listing 4-3) wordt het gebruik van subroutine Getkey gede- 
monstreerd. Na de start van de timer verschijnt op het display een wel- 
komboodschap met verwijzing naar de * toets. Alleen als deze toets wordt 
ingedrukt, verschijnt een invoerscherm. Nu kunnen vier cijfers worden 
ingetoetst, twee voor het aantal minuten en twee voor het aantal secon- 
den. De maximale waarde is 99 m 99 s. Hierbij worden alleen de cijfers 0-9 
geaccepteerd. Als de laatste waarde is ingetoetst wordt bij het loslaten 
van de toets de timer gestart. Als de timer loopt, kunnen ook toetsen wor- 
den ingedrukt, maar alleen bij * stopt de timer en verschijnt de welkom- 
boodschap. Het verstrijken van de tijd wordt aangegeven door een 
langdurige toon en de welkomboodschap. 

Op output 0 kan een LED worden aangesloten, waaraan is te zien dat de 
hoofdlus altijd wordt doorlopen. In het programma zijn daartoe de instruc- 
ties set out 0 en res out 0 opgenomen. Tijdens het verversen van het dis- 
play als de timer loopt, licht de LED steeds kort wat feller op (display acties 
kosten vrij veel tijd), verder brandt hij op halve kracht. 


; Listing 4.3: Eggtimer.asm 
; get a well boiled egg 


start p = intrtxt ; Show welcome text on lcd 


; set character counter to 08 
; time out value 
; beep time 
res out c ; reset eggtimer run flag 
res out e ; reset key up flag 


mainloo set out 0 ; set led on 

skip out c - 0 ; Skip when eggtimer not running 

skip out f - 1 ; Skip when seconds flag set 

jp mainlol 

res out e ; disable time out, key could have 
been pressed 

call eggshow 

skip out c = 1 

jp start ; jump if eggtime is over 

res out 0 ; set led off 

call getkey 

skip out e = 0 

jp counter ; key is released, jump 
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skip vO <> 3f 

jp mainloo 

skip ve = 08 

jp number ; counter <> 08, jump to number 

Skip vO = За 

jp mainloo ; first char received <> “*” 
gotstar p = eggmask ; load eggtimer mask on LCD 

за 0,f 

vc * 01 ; set display counter to tens of 

minutes 

p - inpline set p Lo input line 

res out c reset eggtimer run flag 

jp mainloo 


v0 + c6 add сб to test for "*", wk" 
skip vf - 00 
jp mainloo ; char > 39 (“*” or *#"), jump 
v0 + За ; add 3a tot restore original value 
v0,v0 to mp ; store number 
ld vc,vc ; show number 
BP ; increment pointer... 
ve + 01 ; ...and character counter 
Skip vc «» 0b ; if charcounter on "m" 
ve - Od ; set charcounter to tens of seconds 
jp mainloo 
counter skip уб <> 54 i 54 = p 
jp start ; time out, jump 
skip ve = Of ; skip when 4 numbers have been 
; received 
jp mainloo 


; 4 numbers received, load the eggtimer and set eggtimer run 
; flag 


eggload res out e ; reset key up flag to disable time 

out 

vc - 08 ; Set charcounter to 08 

p - inpline ; set pointer to inputline 

vO = 30 ; hundreds must be set to "0" 

vl,v2 - mp ; vl = tens, v2 - units 

p = a-stack 

v0,v2 to mp ; put minutes decimal number on 
a-stack 

v3 - 3dec mp ; convert tot hex 

v3 to mintimer  ; load minutes timer 

p = inpline 

р+1 

pti 

vl,v2 = mp ; now get the seconds... 

p = a-stack ; ...and repeat the same 
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v0,v2 to mp 

v3 - 3dec mp 

v3 to sectimer 

set out c ; set eggtimer run flag 
jp mainloo 


eggshow, routine to show minutes and seconds timer 


eggshow res out f 
v0 - mintimer ; get minutes into v0 
p = a-stack 
v0 to 3dec mp ; convert to decimal on the a-stack 
Pri point to tens 
ld 9,a ; display tens and units 
vl - sectimer get seconds into v1 
p - a-stack 
v1 to 3dec mp ; convert to decimal on the a-stack 
pti ; point to tens 
1а d,e ; display tens and units 
v0 or v1 ; УО = vO .or. vl 
skip v0 = 00 ; skip if both zero 
ret ; not yet zero, return 
yi = ff ; alert user that 
vl to tone ; time has run out 
res out c ; reset eggtimer run flag 
ret 


Subroutine getkey 


v0 = return value: key press 30...3b 
no key press 3f 
time out 54 
after first key release the time out is activated 
time out can be disabled by resetting the key up flag: out c 


getkey v0 = key 0 
skip v0 <> 3f ; skip when key is pressed 
jp getkey2 ; no key press, jump 
skip out d = 0 ; Skip when key down flag not set 
jp getkeyl ; key down flag is set, jump 
ve to tone give beep 
set out d ; set key down flag 
res out e ; reset key up flag 
ret 
getkeyl "UD = ЗЕ ; key down flag was set, 
; return vO - 3f 
ret 
getkey2 skip out d = 1 ; Skip when key down flag is set 
jp getkey3 ; key down flag not set, jump 
res out d ; reset key down flag 
set out e set key up flag 
vd to timer ; load time out 
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ret ; return with v0 = 3f 
getkey3 skip out e = 1 ; skip when key up flag is set 
ret ; key up flag not set, 
; return with vO = 3f 
vO = timer ; key up flag was set, get time out 
skip v0 <> 00 ; Skip on no Lime out 
jp getkey4 
vO = 3f ; no time out, return with v0 
ret 
getkey4 v0 = 54 ; time out, return with vO = 54 ("T") 
ret 


inpline bytes 00112233  ; storage place for received numbers 
intrtxt asciz "Eggtimer press *"; welcome text 
eggmask asciz "Eggtime: ??m ??s"; input en run time display 


Listing 4-3: De listing van Egtimer.asm. 


In het programma zijn vier byteposities gereserveerd voor de opslag van 
de invoer (inpline). Door teller vc wordt de positie op het display bijgehou- 
den. De beginwaarde is 08, juist voor de minuten. Als door Getkey de key 
up flag is gezet wordt naar counter gesprongen, waar getest wordt op time 
out. Dan wordt de teller getest op OFh, in dat geval zijn de vier cijfers bin- 
nen en kunnen de minulen en secondentellers worden geladen. De key 
up vlag moet worden gereset en de timer run vlag worden gezet. In de 
hoofdlus mainloo(p) zijn direct onder elkaar twee conditionele skip opge- 
nomen: 

Skip outc- 0 

skip out f = 1 


jp mainlol 
res out c 


Alleen als de timer loopt (out c = 1) én de secondenvlagis gezet (out f — 1), 
wordt res out c bereikt. Res out c is nodig omdat tijdens de timerloop een 
toets kan worden ingedrukt waardoor de time out wordt geactiveerd. 


Uitsluiten van #en * 

Bij de invoer van cijfers mogen * en # niet worden geaccepteerd. Dat 
wordt getest door bij vO de waarde C6 op te tellen. Een cijfer (30-39) zal 
geen carry geven (vf = 0). De oorspronkelijke waarde wordt hersteld door 
3A op te tellen (een carry speelt nu geen rol meer). 
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Opmerking 
De Eggtimer wordt “onderhuids” door de Chip realtime klok gestuurd en is 
daardoor op de seconde nauwkeurig. 
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5 De PWM-timer en een 
muziekprogramma 


Inleiding 

De standaard instelling van de PWM-timer is servodriver. Op de uitgan- 
gen servo 1 en servo 2 kunnen direct twee standaard servo's worden 
aangesloten, die onafhankelijk van elkaar kunnen worden ingesteld. Ser- 
vo's zijn er in talloze maten, van uiterst klein tot heel groot en sterk en ze 
zijn nauwkeurig in te stellen. Bovendien zijn de meeste servo's aan te pas- 
sen om te worden gebruikt als motor met vertraging. Soms is beweging 
niet nodig, maar wel een regelbare spanning. Te denken valt bijvoorbeeld 
aan een capaciteitsmeter voor NiCad's. Daarvoor is het nodig dat de ont- 
laadstroom op een constante waarde wordt gehouden. De tijd die nodig is 
tot de accu tot is ontladen, vermenigvuldigd met de ontlaadstroom, be- 
paalt de capaciteit van de accu. 

Met de PWM-timer kan zo'n regelbare spanning worden opgewekt. In fi- 
guur 5-1 is het principe te zien waarop de PWM-timer van Chip functio- 
neert. 


COUNTER 


COMPARE 
REGISTER 


RELOAD 
REGISTER 
000 


Pw OUTPUT 


Figuur 5-1: Het principe van de PWM-timer. 


Het is een 8 bit teller, die omhoog telt. Op de teller is een set-reset flip-flop 
aangesloten. Als de teller zijn eindwaarde (FFh) passeert, wordt de 
flip-flop geset en tevens wordt de teller geladen met de waarde die in het 
reload register staat. Vanaf deze waarde telt de teller weer omhoog en bij 
het passeren van de compare value wordt de flip-flop gereset. De compa- 
re value staat in een apart register, het compare register, en het zal duide- 
lijk zijn dat de compare value niet lager mag zijn dan de reload value, want 
dan wordt de flip-flop niet gereset en blijft hoog. 
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Op de uitgang van de flip-flop staat het PWM-signaal. De inhoud van het 
reload register bepaalt dus de frequentie van het PWM-signaal en de 
waarde van het compare register de werkslag. De resolutie van het 
PWM-signaal is het hoogst als het reload register de waarde 00h bevat. 
Het compare register mag dan alle waarden van 00h-FFh bevatten. Op de 
servo uitgangen van Chip is het PWM-signaal geinverteerd aanwezig en 
aan het begin van de “PWM-ladder” is het signaal dus laag. Daardoor krij- 
gen we tijd voor de afhandeling van de interrupt routine die de servo's af- 
wisselend aanstuurt. Voor de opwekking van een analoog signaal is geen 
interrupt routine nodig en kan het hele tellerbereik worden gebruikt. 


PWM-sturing met Chip 

Nu we weten hoe de PWM-timer werkt, rijst de vraag hoe we daar in Chip 
programma’s gebruik van kunnen maken. Daarvoor is het nodig dat we 
een excursie maken naar het inwendige van de microcontroller, namelijk 
de registers. Angsthazen hoeven het nu niet op een lopen te zetten, want 
de programma's in de listings kunnen direct in eigen toepassingen worden 
opgenomen. 


ARMC (adres D5h), AR-mode control register 
Door hierin 00h te zetten stoppen we de PWM-timer. Met EOh werkt de ti- 
mer in PWM-mode. 


ARRC (adres D9h), AR-reload capture register 
Voor een PWM-signaal wordt dit met 00h geladen. 


ARCP (adres DAh), AR-compare register 
De waarde hierin (OOh-FFh) bepaalt de werkslag. 


ARSC1 (adres D7h), AR-status control register 1 

De waarde hierin bepaalt de frequentie van het PWM-signaal volgens ta- 
bel 5-1. Alle frequenties kunnen nog met een factor 3 worden verlaagd 
doordat met bit 0 een extra delertrap kan worden ingeschakeld. De lage 
nibble wordt dan 1h in plaats van Oh. Let op: de frequentie mag alleen 
worden veranderd als de timer stilstaat! 


DRB (adres C1h), data register van port B 


Met bit 6 van dit register kan het PWM-signaal naar servo 1 of servo 2 
worden gestuurd. Op dit register zijn ook de uitgangen van Chip aangeslo- 
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ten en we moeten hier zeer behoedzaamte werk gaan. De truc is als volgt. 
Eerst laden we de waarde van drb in een Chip variabele. Vervolgens ma- 
ken we met behulp van een .AND. masker (3Fh) bits 6 en 7 nul. Dan ma- 
ken we bit 6 naar keuze Oh of 1h en bit 7 altijd 1h met een .OR. masker 
(80h of COh). Tenslotte schrijven we het resultaat terug in drb. 


deel- PWM- 

factor frequentie 
32.250 Hz 
16.125 Hz 
8.063 Hz 


4.031 Hz 
2.016 Hz 
1.008 Hz 
504 Hz 
252 Hz 


Tabel 5-1: Deelfactoren voor de PWM-timer. 


Demonstratie programma 

In listing 5-1 staat het demonstratie programma PWMtimer.asm voor de 
PWM-timer. Eerst worden de register gedeclareerd met de equ aanwij- 
zingen. De registers van de microcontroller zijn geprojecteerd in adresge- 
bied 800h-8FFh. Dan volgt de hoofdlus van het programma waarin eerst 
een tekst op het display wordt gezet. Nu wordt de subroutine arstart op- 
geroepen, die de PWM-timer start. De variabelen v0-V5 worden geladen 
met de waarden uit de bytes string. Dan laden we ARMC met 00h om de ti- 
mer te stoppen voor het geval hij liep. Nu is vO vrij gekomen en wordt gela- 
den met de waarde van DRB. Bit 7 en 6 worden 1h gemaakt en vO wordt 
teruggeschreven naar DRB. Vervolgens worden de overige registers ge- 
laden en de timer gestart. 

In ARSC1 wordt de waarde AOh geschreven voor een deelfactor van 32. 
De PWM-frequentie bedraagt dan circa 1 kHz. In de lus van het hoofdpro- 
gramma pwmmain wordt vO geladen met de analoge spanning op 
ingang 1. De waarde wordt omgezet naar twee hex-cijfers, die op het dis- 
play worden gezet. De subroutine arload tenslotte zet de waarde in 
ARCP. 

Met een potentiometer, die is aangesloten op ingang 1, kan de werkslag 
van het PWM-signaal worden ingesteld van 0 96-100 96 (OOh-FFh). De 
eindwaarden worden niet helemaal bereikt, er blijven korte "spikes" aan- 
wezig. Als een zuivere gelijkspanning nodig is, kan op de PWM-uitgang 
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een RC-filter als integrator worden aangesloten. Als we met bijvoorbeeld 
een kristal oortelefoontje het PWM-signaal afluisteren, valt op dat bij ver- 
andering van de werkslag weinig verandert aan de toonhoogte. Wel wordt 
bij de uiterste standen het geluid steeds zwakker. 

Met subroutine servo2 in dezelfde listing kan het PWM-signaal naar servo 
2 worden geleid. De oproep voor de subroutine komt dan onder call ar- 
start in het hoofdprogramma te staan. Met de drie subroutines kan de 
PWM-timer in Chip programma's worden gestuurd. De PWM-timer kan 
ook worden stilgezet met de Chip opdracht soff en weer in servomode 
worden gestart met son. 


; Listing 5.1: PWMtimer.asm 

; artimer (pwm-timer) register adressen and port b data register 
drb equ 8с1 port b data register 

агѕс1 equ 847 ar status control register 1 


ar compare register 
ar mode control register 


arcp equ 8da 


arrc equ 8d9 ; ar reload register 
armc equ 8d5 ; 


; pwmmain, main routine for pwm demonstration program 
pwmmain p = dutytxt ; point to dutycycle text and.. 
ld 0,£ ; load display 
call arstart ; start artimer in pwm mode on 
servo 1 
pwmloop v0 = ana 1 ; v0 - analog value from input 1 
p = a-stack ; point to a-stack 
v0 to 2hex mp ; convert vO Lo 2 hex 
ld d,e ; show on display 
call arload ; set duty cycle (v0 will be 
inverted) 
jp pwmloop ; and do it again 
dutytxt asciz "dutycycle - ?? " 
; arstart, subroutine to start arLimer in pwm mode 
arstart p - pwminit ; point Lo pwm initialize values 
v0,v5 - mp ; load into v0...v5 
p - armc ; point to ar mode control register 
v0,v0 to mp ; stop artimer, it could be running 
p = drb ; point Lo port b dataregister 
v0,v0 = mp ; v0 = port b data register 
vl or vO ; we don’t want to change the 
; outputs, so we .or. 
v1,vl to mp ; select servo 1 (11?? ????b) 
p = arsci ; point to artimer status 
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; control register 1 
v2,v2 to ; load predivider ratio (a0h 
p - arrc ; point to ar reload register 
v3,v3 to ; load reload value (00h) 
p = arcp ; point to ar compare register 
v4,v4 to mp ; load ar compare value (ffh) 
p = armc ; point to ar mode control register 
v5,v5 to mp ; start pwm generation 

ret 

pwminit bytes 00c0a000ffe0 
; arload, subroutine to invert received value (v0) and load ar 
; compare register 


arload vi - ff ; vl = xor value 1 
vO xor vi ; vO = value received, invert by 
.хог. 
р = агср point to ar compare register апа.. 
v0,vO to mp ; load vO into ar compare 
ret 


p = drb ; point to port b dataregister 
v0,vO = mp ; vO = port b data register 

vl = 3f vl is .and. mask 3f 

vO and vi ; reset bits 7 and 6 

vl = 80 ; vl is .or. mask 80 

vO or vi ; set bit 7 

v0,vO to mp ; write back to drb 

ret 


Listing 5-1: Het demonstratie programma PWMtimer.asm. 


Musicbox 

Met de PWM-timer kunnen ook tonen worden opgewekt. Maar omdat dan 
de frequentie veranderbaar moet zijn, moet het compare register een vas- 
te waarde hebben en de waarde van het reload register bepaalt dan de 
toonhoogte. 

Weliswaar verandert de werkslag van het PWM-signaal, maar dat is bij 
deze toepassing niet erg. Het geeft het geluid zelfs een eigen karakter. 
Door de waarde van de prescaler aan te passen is het mogelijk om meer- 
dere octaven te bestrijken. De timer moet in de autoreload mode zijn inge- 
steld. Om het geluid hoorbaar te maken kan op de servo 1 uitgang een 
kristal oortelefoontje of een passieve piézo sounder (zoals op de print van 
Chip) worden aangesloten. 
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Voorbeeld 

De volgende toepassing is ontleend aan de ST626x family starterkit en 
aangepast voor Chip. De melodietjes zijn ongewijzigd. Het concept is een- 
voudig maar heel aardig. Degenen, die een beetje muzikaal zijn, kunnen 
makkelijk andere melodietjes maken. 

Eerst bepalen we de waarden waarmee het reload register moet worden 
geladen voor de zeven hoofdtonen in een octaaf: DO, RE, MI, FA, SOL, 
LA en SI. Het compare register is vooraf geladen met FOh. 

Om het einde van de melodie aan te geven wordt in plaats van de waarde 
van de toon 00h gebruikt, zie tabel 5-2. 

Voor vier octaven zijn de waarden waarmee het prescaler register (arsc1) 
moet worden geladen als gegeven in tabel 5-3. 


Tabel 5-2: De toonwaarde voor de verschillende noten. 


Octaaf 1 
Octaaf 2 
Octaaf 3 
Octaaf 4 


Tabel 5-3: De waarden in het prescale register voor vier octaven. 


Tot slot is het nog nodig om de lengte van de tonen in te kunnen stellen. 
Daarvoor gebruiken we de timer van Chip met de in tabel 5-4 aangegeven 
waarden voor respectievelijk een halve, een hele en een dubbele toon. 


Tabel 5-4: De waarden voor respectievelijk een halve, hele en dubbele 
toon. 
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Kleine wachtlus 

Als tussen de tonen een hele korte pauze zit zonder geluid klinkt de melo- 
die beter. Hiervoor gebruiken we een software wachtlus waarvoor we een 
waarde 07h gebruiken. De melodietjes worden nu als een tabel opge- 
bouwd en wel als volgt: 


bytel = toon, byte2 = octaaf, byte3 = duur, byte4 = pauze 


Een melodie tabel met als begin het label start komt er dan uit te zien zoals 
in tabel 5-5 voorgesteld. 


start bytes 88A10407 FA octaaf 2 half pauze 
bytes 81810407 MI octaaf 2 half pauze 
bytes 88210407 ; FA octaaf 2 half pauze 


bytes 71811007 ; RE octaaf 3dubbel pauze 
bytes 00 ; Einde 


Tabel 5-5: De melodie tabel. 


De eenvoudigste methode om zelf melodie tabellen voor de Musicbox te 
maken is om de noten eerst in symbolische vorm in de tekstverwerker in te 
voeren, dus zoals na de puntkomma in bovenstaande tabel. Ze zijn dan 
nog gemakkelijk te lezen. Met de vervangfunctie van de tekstverwerker 
kunnen de symbolen worden omgezet in hun corresponderende bytes. 
Het enige dat dan nog nodig is, is de bytes te ordenen zodat de assembler 
ze slikt. 

De pauze had ook als vaste waarde in het programma kunnen worden op- 
genomen. Dat zou de tabel niet korter maken omdat alle instructies op een 
even adres moeten staan. De assembler zou aan iedere byte string een 
00h-byte hebben toegevoegd. 


Musicbox.asm 

In het programma Musicbox (listing 5-2) worden eerst de gebruikte interne 
register adressen van de controller gedeclareerd. Het is duidelijker om 
met de namen dan met de adressen te werken. Dan wordt de pointer op 
de melody tabel gezet en gesaved. Vervolgens wordt de pointer op een ta- 
bel met instelwaarden voor registers gezet die in één keer in de variabelen 
v6-va worden ingelezen. Dan wordt de pointer successievelijk op de ver- 
schillende registers gezet, die dan vanuit de variabelen worden geini- 
tialiseerd. Door drb met 80h in plaats van met COh te laden, kan servo 2 
als PWM-uitgang worden gekozen (Chip's uitgangen worden hier niet ge- 
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bruikt!). De programmalus begint bij label next. Hier wordt de pointer ge- 
restored en een vier bytes regel uit de melody tabel wordt in de variabelen 
vb-ve gelezen. Dan wordt de pointer op de volgende regel gezet (p + va, 
va = 04h) en gesaved. Als de toon 00h is wordt het programma afgebro- 
ken, anders worden het reload register (toon), het prescaler register (oc- 
taaf) en de Chip-timer geladen. Dan wordt de timer aangezet door EOh in 
het mode control register te laden vanuit v9. De timer wordt in vd geladen 
en zolang deze niet OOh is, wordt gewacht. Dan wordt de timer gestopt 
door vanuit v7 de waarde 80 in het mode control register te laden. Tot slot 
volgt de software delay en wordt naar next gesprongen. 


Listing 5.2: Musicbox.asm 
; plays music from table, using artimer (pwm-timer) 


artimer register adressen and port b data register 


equ 8d7 5 status control register 1 

equ 8d5 ў mode control register 
8d9 H reload register 

equ 8da H compare register 

equ 8с1 ; port b data register 


p = melody ; point to start of music table 
save p ; save pointer 
p = initial ; point to table with intialize 
; values and.. 
v6,va = mp ; load initialize values into v6...va 
p = arb ; point to drb and.. 
v6,v6 to mp ; connect servo 1 to pb7 and reset 
; servo 1 
p - armc ; point to artimer mode control 
; register and.. 
v7,v7 to mp ; set artimer - off and pwm - off 
p= arcp ; point to artimer compare register 
; and.. 
v8,v8 to mp ; load with fO 
rest p ; point into music table 
vb,ve - mp ; vb = note, vc = octave, vd = 
; duration, ve = delay 
p + và ; point to next music table entry 
save p ; save pointer 
skip vb «» 00 ; Skip if note «» 00 
break ; break if note - 00 
p = arrc ; point to ar reload register.. 
vb,vb to mp ; load note 
p = агѕс1 ; point to ar status control 
; register 1 and.. 
vc,vc to mp ; load octave into predivider 
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vd to timer ; load duration into timer 
armc ; point to artimer mode control 
; register and.. 

v9,v9 to mp ; set artimer - on and pwm 
playing vd - timer ; wait for duration of note 

skip vd - 00 

jp playing 

v7,v7 to mp ; set artimer - off and pwm - off 

ve + ff ; wait for delay time between notes 

Skip ve - 00 

je delay 

jp next 


initial bytes c080f0e004 ; presets for v6...va 


i 

melody bytes 88a10407 
bytes 81a10407 
bytes 88410407 
bytes 71811007 
bytes 00 


bytes 81a10807 
bytes 81a10807 
bytes 88210807 
bytes 95210807 
bytes 95a10807 
bytes 88a10807 
bytes 81a10807 
bytes 71a10807 
bytes 602310807 
bytes 60a10807 
bytes 71a10807 
bytes 81a10807 
bytes 81a11007 
bytes 71a11007 
bytes 81a10807 
bytes 81a10807 
bytes 88410807 
bytes 95a10807 
bytes 95a10807 
bytes 88a10807 
bytes 81a10807 
bytes 71a10807 
bytes 60210807 
bytes 60210807 
bytes 71a10807 
bytes 81a10807 
bytes 71a11007 
bytes 60a11007 
bytes 00 


bytes 60a11007 
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bytes 95411007 
bytes 88210407 
bytes 81210407 
bytes 71210407 
bytes 60811007 
bytes 95411007 
bytes 88410407 
bytes 81a10407 
bytes 71410407 
bytes 60811007 
bytes 95211007 
bytes 88210407 
bytes 81a10407 
bytes 88210407 
bytes 71a11007 
bytes 00 


bytes 60a10807 
bytes 60a10807 
bytes 60a10807 
bytes 71a10807 
bytes 81a11007 
bytes 71a11007 
bytes 60a10807 
bytes 81a10807 
bytes 71a10807 
bytes 71a10807 
bytes 60a11007 
bytes 00 


beet bytes 88a10407 
bytes 88a10407 
bytes 88a10407 
bytes 71a11007 
bytes 00 


Listing 5-2: De listing van Musicbox.asm. 


Melodietjes 

In de listings staan nog wat andere melodietjes. Door de pointer op het la- 
bel van de melodie te zetten, wordt deze afgespeeld na het starten van de 
Chip interpreter. De bij de labels behorende adressen kunnen in de 
hex-listing worden opgezocht en met prog in de instructie op adres 0000 
worden gepatched. 
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Uitbreidingen 

Het programma zou kunnen worden uitgebreid met een keuzemenu voor 
de melodie waarbij dan de naam op het LCD wordt gezet. Ook kunnen 
met behulp van een lus alle melodieën na elkaar ten gehore worden ge- 
bracht. 


Elektronische deurbel 

Als Chip zelfstartend wordt gemaakt, staat niets de toepassing als deurbel 
in de weg. Een extra transistor en een luidspreker zijn dan nodig, want als 
deurbel heeft het oortelefoontje niet voldoende volume. 


63 


5 - De PWN-timer en een muziekprogramma Chip, een zelfbouw computertje 


Chip, een zelfbouw computertje 6 - Chip als robot 


6 Chip als robot 


Opmerking 
De robot die in dit hoofdstuk wordt beschreven is gebaseerd op het robot- 
wagentje dat ook in de Basic Stamp Cursus wordt gebruikt”. 


De mechanische opbouw 

In het chassis zijn twee servo's gemonteerd, die eerst zijn aangepast om 
continu te kunnen draaien. Door ons zijn servo's FS100 gebruikt. Die kos- 
ten vrij weinig en zijn toch goed. De terugmeldingspotentiometer wordt 
door middel van een plastic koppelstukje in de uitgaande as aangedreven. 
Door dit koppelstukje te verwijderen en de blokkeringspallen van de as af 
te snijden wordt de servo een motor. 

De stekkers van de servo's worden op de servo uitgangen van Chip ge- 
zet. 

Als achterwiel is een glad rond houten bolletje met een diameter van 
25 mm gebruikt, dat is gekocht in een hobbywinkel. Bovenop, aan de 
voorkant van het chassis, is de Chip computer gemonteerd, met de 
RS232-connector naar voren wijzend. Achterop het chassis staat, op af- 
standbussen van 30 mm lengte, het LCD. Onder het chassis, tussen de 
servo's, hangt het accupakket (vier NiCad penlites in een houder) dat met 
een kabelbandje vastzit. Het accupakket is zo geplaatst dat de druk op het 
achterwiel niet hoog is en dit gemakkelijk zijwaarts kan schuiven. Tegen 
de achter zijkant van de robot is, met dubbelzijdig plakband, de aan/uit- 
schakelaar bevestigd. 

De mechanische opbouw van de robot is voorgesteld in figuur 6-1. 


Obstakel detectie 

Voor de detectie van obstakels is aan de voorkant van het chassis een 
bumperschakelaar gemonteerd en voorop het chassis zijn links en rechts 
infraroodsensors (zie verder) opgenomen. 

Voor de bumperschakelaaris een microswitch gebruikt met aan de bedie- 
ningshevel een stuk messing buis (diameter 3 mm, lengte 100 mm). Over 
de einden zijn stukjes rubberslang geschoven, die aan beide zijden onge- 
veer 1 cm buiten het wagentje uitsteken. De bumper zit 20 mm boven de 
grond en 40 mm voor de voorkant van de robot. Door de constructie is de 
bumper niet star. 
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Figuur 6-1: De robot is volledig opgebouwd uit standaard onderdelen en 
is door een knutselaar snel in elkaar te zetten. 


Bij een botsing geeft hij mee. Het is een zwabber bumper. De bumper- 
switch is met een 2-aderig snoer met een ingang verbonden, tussen in en 
Gnd. 


Neutral.asm 

Met behulp van het programma Neutral.asm, voorgesteld in listing 6-1, 
kunnen de servo's neutraal worden gesteld. De bytes op adres 000C be- 
palen de draaisnelheid van servo 1 respectievelijk servo 2. Een waarde 
van 80 is de standaardwaarde (neutraal). Het instellen moet vrij nauwkeu- 
rig gebeuren. 


De infrarood sensors 

De infrarood sensors zijn gebaseerd op " en het schema ervan is gete- 
kend in figuur 6-2. De IS471F bevat een oscillator voor de sturing van de 
infrarood LED, waardoor de schakeling heel eenvoudig is. 
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; Listing 6.1: Neutral.asm, aid in adjusting servos 


i 
neutral son 

p = neutral ; point to neutral string byte 

v0, vl - mp ; copy into v0, vl 

v0 to si ; copy vO into servo 1 

vl to s2 ; and vl into servo 2 

break ; return to command mode 
neutral bytes 8080 


Listing 6-1: De listing van Neutral.asm. 


Figuur 6-2: Het schema van één infrarood sensor. 


De bouw van de sensor 

Figuur 6-3 laat de print zien en figuur 6-4 de opstelling van de onderdelen. 
Ook nu is de print niet op ware grootte getekend. Wij verwijzen u weer 
naar www.vego.nl/chip. Druk het TIF-bestand twee maal af op transpa- 
rante folie met als afmetingen 11 x 18 mnf. 
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o9 


% 


Figuur 6-3: De print van één infrarood sensor. 


Figuur 6-4: De componentenopstelling van de print. 


De infrarood LED zit boven de sensor. Tussen de LED en de sensor zit 
een stukje zwart papier, anders ziet de sensor de LED. Aan het einde van 
het sensorsnoer is een driepolige female printheader gesoldeerd, met 
over de verbindingen krimpkousjes. Deze past op de ingangen van Chip. 
De printheader is met een figuurzaagje voor metaal van de strip afge- 
zaagd. De sensors zijn niet zo gevoelig: zo'n 15 tot 20 cm, maar dat is hier 
juist voldoende. In figuur 6-5 (zie laatste pagina van dit hoofdstuk) is de 
montage van de sensoren op het chassis voorgesteld. 


Het robotprogramma Robot.asm 

Listing 6-2 is het volledige robotprogramma Robot.asm voor Chip. Na as- 
semblage kan het in de EEPROM worden geladen, die is dan voor circa 
20 % gevuld. Het programma wordt gestart door de schakelaar aan te zet- 
ten, terwijl de drukknop S1 is ingedrukt of de autostart jumper te plaatsen. 
De robot begint niet direct te rijden, eerst is er de count down van tien se- 
conden. Dit is op het LCD te zien. Dan gaat de robot rijden. 
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De snelheid en richting worden door middel van toevalsgetallen uit een ta- 
bel gehaald. In eerste instantie werd de richting volkomen willekeurig ge- 
kozen, maar dat was niet leuk. Het is veel spannender als de robot 
enigszins zwalkend vooruit rijdt. Het lijkt dan, of hij tegen een obstakel aan 
zal botsen, maar meestal rijdt hij er net langs en soms botst hij er tegen op. 
Als hij er tegen op botst (bumper collision), gaat hij eerst een stukje ach- 
teruit en draait dan links- of rechtsom. Dit hangt weer af van een toevals- 
getal, nadien begint hij weer vooruit te rijden. 


Obstakels 

Als een obstakel wordt gezien door een IR-sensor, dan gaat de robot een 
stukje achteruit, terwijl hij iets weg draait van het obstakel en dan iets 
vooruit, eveneens wegdraaiend van het obstakel, waarna hij weer zwal- 
kend vooruit gaat. Als direct, nadat een IR-sensor een obstakel heeft ge- 
zien, de andere IR-sensor een obstakel ziet, dan wordt dit afgehandeld als 
een bumperbotsing. Terwijl de robot rond rijdt worden op het display me- 
dedelingen gezet over de stand van zaken. Als obstakels worden herkend 
piept de robot. In de listing is te zien, dat veelvuldig gebruik wordt gemaakt 
van toevalsgetallen en dat het merendeel van de te gebruiken gegevens 
in tabellen staat. Door middel van de pointer kunnen deze waarden snel in 
variabelen worden geladen. 


Rijgedrag 

Het is werkelijk geen vertoning zoals de Chip-robot door de kamer rijdt. le- 
dereen die het ziet is met stomheid geslagen. Hij rijdt weliswaar niet zo 
snel, maar het is de onvoorspelbaarheid van zijn rijden, dat het spannend 
maakt. Soms zit hij in een hoek (een verhuisdoos is heel leuk) en denk je: 
“daar komt t'ie nooit uit", en het volgende ogenblik rijdt hij alweer rustig 
zwalkend rond. Als hij vast zit, komt dat bijna altijd doordat de bumper 
komt klem te zitten, bijvoorbeeld tussen twee stoelpoten. Tegen dergelijke 
hinderlagen is Chip niet opgewassen. 


; Listing 6.2: Robot.asm 
; a robot program for Chip 


; The robot mechanics are based on the robot from parallax. 
; The infrared sensors are based on the IS471F integrated 
; circuit. 


; connections: left servo = s1 
right servo - s2 
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infra red detector left 
infra red detector right = in 1 
bumper switch = in 2 


note 1: detectors are normally high 

note 2: output f is set every second by the operating system 
note 3: do not use v0 for a random number, conflicts with 
00nn instructions 

note 4: vb is used Lo get robot out of a corner, when there 
is an obstacle right or left, immediately followed by an 
obstacle on the other side, this is handled as a collision. 


start p = contxt ; point p to count down text 
Ta O,£ and load display 
v0 = 0a ; load vO with count down delay 
v0 to sectimer ; put into seconds timer 
set out e ; set flag e for counting while 
counting down 
startl Skip out e Skip jump to main while 
flag e - set 
jp main 
Skip out f - 0 
call countdn 


Skip call while flag f = 0 
flag f - set by opsys, time to 
call sub 

and loop while flag e 


jp start1 
count down subroutine 


res out £ reset calling flag f 

p = a-stack point p to a-stack for conversion 

v0 = sectimer ; get seconds into v0 

v0 to 3dec mp convert v0 to decimal on a-stack 

p+ 1 ; point to tens 

1а a,b load display with tens and units 

skip v0 <> 00 ; Skip resetting flag e while 
seconds «» 00 

res out e seconds - 00, reset flag e 

ret return 


son enable servo drive 

p - wantxt point p to wandering text 

rotate rotate text on display 

vO = timer get the timer into v0 

skip v0 <> 00 skip jump to wander while v0 
(timer) <> 00 


jp wander 

skip in2- 1 Skip if no bumper collision 

jp collisi yes, collision, jump to handling 
routine 

call irsense read infra red sensors 

skip va <> 00 if va «» 00, there was an obstacle 

jp mainl no obstacle, loop 
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collisi 


obsleft 


obsrigt 


obsfron 
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Skip va «» 01 
jp obsleft 
Skip va «» 02 
jp obsrigt 
jp obsfron 


vi = rnd, Lf 
vi + 10 

vl to timer 
vl = rnd,07 
vi to v0 
vl + vO 

p = tablew 
р + vil 

v0, vl = mp 
v0 to sl 

v1 to s2 
vb - 00 

jp main2 


call stopser 
stop rotate 
p - coltxt 
ld 0,£ 

p = esccoll 
v1 = rnd, 08 
$ + wl 

call escape 
vb - 00 

jp maint 
call stopser 
stop rotate 
p - leftxt 
1а 0,f 

skip vb «» 03 


jp collisi 

p = escleft 
call escape 
jp mainl 

call stopser 
stop rotate 
p = rigtxt 
Id 0, E 

skip vb <> 03 


jp collisi 
p = escrigt 
call escape 
jp mainl 
call stopser 
stop rotate 


= 01, obstacle left 


; va = 02, obstacle right 


must be 03, obstacle front 


random 0 to 1f 
= random 10 to 2f 
timer with random number v1 
random 0 to 7 
vl into v0 
random number * 2 


; point p to start of direction table 


add vl for random table entry 
get table values into v0 to vl 
load servo drives 


reset obstacle right/left v.v flag 
and jump back 


stop servo's 
stop text rotate, clear display 
and show collision text 


; point p to start of collision table 
; vl - a random number 0 or 8 
; p points to esccoll or esccolr 


execute the instructions 

reset obstacle right/left v.v flag 
and jump back 

stop servo's 

Stop text rotate, clear display 
and show obstacle left text 


skip if .not. obstacle 
right/left or v.v. 


; point p to escape left table 


execute the instructions 


; and jump back 


sLop servo's 
stop text rotate, clear display 
and show obstacle right text 


Skip if .not. obstacle 
right/left or v.v. 


; point p to escape right table 


execute the instructions 

and jump back 

stop servo's 

stop text rotate, clear display 


" 
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frotxt and show obstacle front text 
ld 0,£ 
jp collisi let collision handle this 


stop servo's subroutine 


stopser p - stop point p to stop servo values 
v0, vl - mp load values into v0 to vi 
v0 to si ; load the servo's 
vi to s2 
vO = 06 
v0 to tone ; give a short beep 
ret 


infra red sensors subroutine 


rsense va - 00 preset result value to 00 
vO = 01 v0 is .or. mask left 
ul = 02 vl is .or. mask right 
skip in 0 skip no obstacle left 
va or vO obstacle, .or into result 
skip in 1 skip no obstacle right 
va or vl obstacle, .or. into result 
skip in 0 skip no obstacle left 
va or vO obstacle, .or. into result 
vb or va save result in vb 
ret 


escape subroutine 


escape v0, v5 = mp ; load variables v0 to v5 from mp 
v0 to sl ; v0 goes to servo 1 
vi to s2 v1 goes to servo 2 
v2 to timer ; V2 goes to the timer 
escapel v2 - timer wait till timer - 00 
skip v2 = 00 
jp escapel 
v3 to si v3 goes to servo 1 
v4 to s2 v4 goes to servo 2 
v5 to timer ; v5 goes to the timer 
escape2 v5 - timer wait till timer - 00 
Skip v5 - 00 
jp escape2 
call stopser stop the servo's 
p - wantxt point p to wantxt 
rotate load display 
p - tablew ; set course straight forward 
v0, vl - mp 
v2 - 10 ; for appr. 0.6 seconds 
v2 to timer ; necessary Lo detect left obstacle 
v0 to sl ; immediately after right obstacle 
or vice versa 
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v1 to s2 ; load servo drives 
ret ; and return 


; the random direction table for wandering 
; note the duration is also set at random 


tablew bytes 778a ; straight forward 
bytes 768a ; increase speed left wheel 
bytes 758a increase speed left wheel 
bytes 748a ; increase speed left wheel 
bytes 778a ; straight forward 
bytes 778b ; increase speed right wheel 
bytes 778c ; increase speed right wheel 
bytes 778d ; increase speed right wheel 
; 


stop bytes 8080 


i 
contxt asciz “countdown sec” 


wantxt asciz “Inspecting premises” 
coltxt asciz “Bumper Collision” 
leftxt asciz “Obstacle left! ~” 
rigtxt asciz “Obstacle right! * 
frotxt asciz "Obstacle front! " 


the table for collision and obstacles 
note: esccoll and esccolr are selected at random 


esccoll bytes 847c20888835 ; go back, rotate left 
bytes 0000 fillers to get collision table 
offset of 8 
esccolr bytes 847c20797930 go back, rotate right 
escleft bytes 80790£797910 go right back, turn left 
; a little 
escrigt bytes 87800£878710 go left back, turn right 
г a little 
i 
; end of robot 


Listing 6-2: De listing van Robot.asm. 


Referenties 

[1] Elektuur, oktober en november 1999, www.stampsinclass.com, 
BoE documentation, robotcourse, BoE-Bot drawings in *.dxf en 
* dwg format, www.antratek.nl, dutch distributor of parallax 

[2] Elektuur mei 2000, Lego Robotics Invention System 
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Figuur 6-5: De montage van een sensor op het chassis van de robot. 
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7 Chip als klok 


Inleiding 

Als je met plezier aan het werk bent, vliegt de tijd voorbij. Een klok waarop 
je kunt zien of het tijd voor koffie is, is onmisbaar. Chip kan heel goed als 
klok worden gebruikt, maar om hem alleen daarvoor te gebruiken is onte- 
recht, daarvoor is hij te knap. Omdat Chip weet welke week en welke dag 
hetis, kan hij ook als verjaardagskalenderworden gebruikten om de punt- 
jes op de i te zetten laten we hem tikken en geven hem een slagwerk 
waarbij, voor het slaan van de tijd, een melodietje is te horen. 


Een klok 

De realtime klok van Chip wordt gestuurd door de interrupt routine van ti- 
mer 1. De klok werkt dus op de achtergrond en zo lang we Chip niet uit- 
schakelen blijft hij precies op tijd lopen, mits het afregelbyte correct is 
ingesteld. De klok houdt de weken, dagen, uren, minuten en seconden 
(zie tabel 7-1) bij en is dus geschikt voor homesystemen omdat het dag- 
nummer aangeeft of het een doordeweekse of een weekend dag is. 


Tabel 7-1: Chip's inwendige tijdregisters. 


Clock.asm 

Clock.asm, zie listing 7-1, laat de subroutine zien die de tijd op het display 
zet. Het aardige aan deze routine is dat gebruik wordt gemaakt van de va- 
riabelen v0 en v1 om de posities op het display te adresseren. Hierdoor 
kunnen we een lus maken en zijn de conversie- en display-instructie 
slechts eenmaal nodig. Een nadeel is dat de routine wat meer tijd in be- 
slag neemt. De klok wordt eenmaal per seconde op het display gezet, va- 
ker is immers niet nodig. Het spaart processortijd en maakt het display 
rustiger om te zien. De klok kan worden ingesteld met het commando 
time, waarbij het aan de gebruiker wordt overgelaten om voor de zondag, 
dag zeven of dag één te kiezen. 
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Listing 7.1: Clock.asm 

Clock, subroutine to show the week, day of week and time on 
the LCD. 

Note that we use variables to load the display, 

so we can use a loop. 


main p= clock2 ; point to the initial clock text 
ld O,f ; and load the initial display 
main0 skip out f = 0 skip if the seconds flag is not set 
call clock ; call the clock sub 
loop 


; let the clocksubroutine begin here 
; reset the seconds flag 
; initialise vO and vi 


; get the corresponding byte 
; and load into v3 


minutes 
v0 <> 0а 
seconds 
a-stack ; we let p point to a-stack 

v3 to 3dec ; and convert v3 to 3 decimals 

р+1 ; we don’t need the hundreds 

ld у0,у1 ; show tens and units on display 

vO + 03 ; let vO and v1 point 

vi + 03 ; to next display position 

skip v0 = 10 ; if vO = 10 we are ready 

јр clockl ; else we loop 

ret 

asciz * 9g um as 

is the inititial display 


Listing 7-1: De listing van Clock.asm. 


Chip leert klok kijken 

Chip moet ook kunnen klok kijken om te weten of er iets moet gebeuren. 
Met het programma Dattime.asmin listing 7-2 kan Chip klok kijken. De ge- 
beur-tijd staat in de bytesstring datstr1, in dit geval week 41, dag 06, 09 
uur, 15 minuten en 00 seconden precies. In de hoofdroutine wordt de 
pointer op de string gezet en de subroutine wordt aangeroepen. Als de 
klok gelijk is aan de stringtijd wordt vf «» 00 gemaakt waarop de roepende 
routine actie kan ondernemen. In het voorbeeld wordt een geluidssignaal 


76 


Chip, een zelfbouw computertje 7 - Chip als klok 


gegeven. De dattime subroutine laadt eerst de stringbytes in variabelen 
waarbij bit 7 van de weken wordt gestript. Vervolgens worden de variabe- 
len vergeleken met de klok, tenminste als ze ongelijk 7Fh zijn. Als alles 
gelijk is, en in de tijdstring bit 7 van de weken 0 is, wordt vf gezet (<> 00) en 
het genoemde bit wordt gezet. Zodra de tijden ongelijk zijn geworden, 
wordt dit bit weer gestript. Een 7Fh byte is een joker, een doet er niet toe 
byte. Als we deze waarde als week invullen, wordt de string iedere week 
geldig en als we voor weken en dagen 7Fh invullen, iedere dag. Als we 
voor de seconden 7Fh invullen, hebben we een minuut de tijd voor de 
string ongeldig wordt. Voor de test op een weekend gebruiken we natuur- 
lijk de instructie vx = days en testen vx. Er kunnen meerdere tijdstrings in 
een programma worden opgenomen en de string waarop de pointer staat 
wordt getest. In het voorbeeld is de verjaardag van auteur dezes opgeno- 
men. De instructies set out 4 en res out 4 zijn opgenomen om met de 
scoop de tijden de kunnen meten. 


; Listing 7.2: Dattime.asm 
main p = datstr1 
mainl set out 4 
call dattime 
res out 4 
Skip vf - 00 
jp sound 
jp main1 
vO = 80 
vO to tone 
jp main1 
і 
datstr1 bytes 2906 ; weeks, days 
bytes 090f ; hours, minutes 
bytes 00 ; seconds 


dattime, subroutine to compare the running clock against a 
; date-time string 

pointed to by the pointer: 

; p -» weeks, days, hours, minutes, seconds (all values hex!) 
when a dattim string byte is 7f, it will not be tested 


; when the condition is met for the first time, vf will be set 
as flag («» 00) 

and bit 7 of weeks, date-time string will be set. As soon as 
; the condition 

is no more valid this bit wil be reset. 


H 


dattime v0,v4 = mp ; move string date and time into 
7 w0...4 
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vf = 7f strip bit 7 from vO 
v0 and vf 
skip vO <> 7f Skip if weeks <> 7f 
jp dattimi weeks = 7f, so do not test 
vf - weeks get clock weeks 
Skip vO = vf ; Skip if equal 
jp dattim7 ; not equal, jump 

dattiml Skip vl «» 7f ; Skip if days «» 7f 
jp dattim2 ; days = 7f, so do not test 
vf - days ; get clock days 
skip vl - vf ; Skip if equel 
jp dattim7 ; not equal, jump 
Skip v2 «» 7f ; Skip if hours «» 7f 
jp dattim3 ; hours - 7f, so do not test 
vf - hours ; get clock hours 
skip v2 = vf Skip if equal 
jp dattim7 not equal, jump 

dattim3 skip v3 <> 7£ skip if minutes <> 7f 
jp dattim4 minutes = 7f, so do not test 
vf = minutes get clock minutes 
Skip v3 - vf Skip if equal 
jp dattim7 not equal, jump 
Skip v4 «» 7f Skip if seconds «» 7f 
jp dattim5 seconds = 7f, so do not test 
vf - seconds get clock seconds 
Skip v4 - vf Skip if equal 
jp dattim7 ; not equal, jump 


dattim string is equal to the clock 

; when this happens for the first time, bit 7 of уб (weeks) 
will be 0, 
it must be set to 1 and vf must be made «» 00 


dattim5 v0, vO = mp 
vf = 80 vf is bitmask 
vf and vO strip d6...d0 
skip vf - 00 ; skip if a7 = 0 
jp dattim6 jump, this dattim skip has already 
been taken 
vf - 80 ; WE te .or. bit 7 
v0 or vf ; set 7 of vO 
v0, v0 to mp write back to dattim string 
Skip a Skip always, let vf remain 80 
dattim6 vt 00 entry point for skip already taken, 
reset flag 
ret 
dattim7 v0, vO to mp write back to dattim string 
vf - 00 reset flag vf 
ret 


Listing 7-2: De listing van Dattime.asm. 
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Een hi-tech klok 

Onze wekker was kapot. We waren eraan gehecht want ruim 35 jaar heeft 
hij trouw voor ons getikt. Het was een van de eerste wekkers waarbij de 
onrust via een transistor elektromagnetisch werd aangedreven. De rest 
was zuiver mechanisch. Onze gedachten gingen naar Chip. Deze bevat 
immers alle componenten voor een aardig klokje en ook voor wat betreft 
de software waren er interessante mogelijkheden. 

Van een plaatje aluminium 160 mm hoog, 82 mm breed, dik 1,5 mm heb- 
ben we aan de onderkant een strook van 40 mm omgezet, iets meer dan 
90 graden, zie figuur 7-1. 


Figuur 7-1: Het high tech klokje waarschuwt bij verjaardagen. 


De omgezette strook is de bodem. Boven aan de voorkant hebben we het 
display gemonteerd, met daaronder Chip. Tussen het display en Chip zit 
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de aan/uit-schakelaar. Weliswaar gebruikt Chip slechts 8 mA, maar dat is 
teveel voor een klokje met batterijvoeding. Daarom is een (ongestabili- 
seerd) netstekervoedinkje gebruikt dat 300 mA kan leveren en dat om- 
schakelbaar is tussen 3 V, 4,5 V, 6 V, 7,5 V, 9 V en 12 V. Voor de voeding 
van Chip is een low drop 5 V stabilisator gebruikt. Omdat het makkelijk is 
als het klokje ook in het donker afleesbaar is, hebben we een display met 
backlight gebruikt dat via een serieweerstand van 27 Q, 2 W op de voe- 
ding is aangesloten. Met de spanningkeuze kan het backlight van weinig 
tot heel helder worden ingesteld. 


Kroonstrip voor de aansluitingen 

Aan de achterkant van de constructie hebben wij een kroonstrip gemon- 
teerd waarop alle externe bedrading kan worden aangesloten, zie figuur 
7-2. 


Figuur 7-2: Handig, de kroonsteen- 
strip aan de achterkant voor montage 
van onderdelen. 


Opmerking 
Bij 12 V wordt de weerstand vrij warm, hij dissipeert dan ongeveer 1,5 W. 
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Tikken en melodietje 

Onze wekker tikte, dus het nieuwe klokje moest ook tikken. Net als een 
echte klok moest hij ook bij de hele uren slaan en om het geluidenpallet 
compleet te maken moest hij, voor dat slaan van de uren, een muziekje 
spelen. 


Chip onthoudt verjaardagen 

Toch ontbraker nog iets. Weliswaar hebben we een verjaardagskalender, 
maar we kijken daar te weinig op en vergeten verjaardagen. Het klokje 
kon daarbij helpen, want Chip kan immers klok kijken. 

Zo hebben we nu een heel bijzonder klokje, dat voor een technisch ie- 
mand een plezier is om naar te kijken, maar dat ook wat betreft functionali- 
teit zijn weerga niet kent. 

Om de muziek te laten horen moet op servo 1 een piëzo sounder worden 
aangesloten, eenzelfde type als op de Chip print zit. En om een roterende 
felicitatiewens te kunnen stoppen, moet op input 0 (en Gnd) een druk- 
knop worden aangesloten. 


Calclock.asm 

Het klokprogramma Calclock.asm (Calendar and clock) is te zien in listing 
7-3. Eerst wordt de PWM-timer omgeprogrammeerd om muziek te spe- 
len. In de hoofdlus mainlo(op) worden vlag 5 en vlag 6 getest. Als vlag 5 
is gezet wordt een muziekje (Chimes) gespeeld en als vlag 6 is gezet 
wordt het aantal uren geslagen (Hourwrk). Er zijn vier liedjes, via een toe- 
valsgetal (random number) wordt er een gekozen. Omdat de Chip 24 uren 
aangeeft, wordt vanaf 13:00 uur een correctie aangebracht en bij 00:00 
uur (12 uur 's nachts) wordt twaalf maal geslagen. Eenmaal per seconde 
wordt de tijd getoond door subroutine Clock. De subroutines Clock, Chi- 
mes en Hourwrk sturen de vlaggen. Aardig is dat bij het slaan van de 
uren de clock doorloopt. 

De verjaardagen worden niet alle iedere seconde getest, maar per secon- 
de één, te beginnen bij seconde 45. Eerst wordt de pointer op datsent ge- 
zet, dan wordt de pointer op een (bij een seconde horende) dattim string 
gezet. Als de pointer niet is veranderd, is dat de zien aan de byte 00 waar- 
op hij wijst en gaan we terug naar mainloop. Als hij wel op een dattim 
string staat, zal subroutine dattime vf <> 00 maken bij een verjaardag op 
de ingestelde tijd. Precies zes 6 posities lager staat de felicitatiebood- 
schap die gaat roteren op het display. Het roteren stopt als input 0 wordt 
laag gemaakt of als het 10:00 uur wordt. 
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Practisch gezien worden alle tijdstrings eenmaal per minuut getest. Daar- 
om zijn in de strings de seconden op don't care (7fh) ingesteld. Anders 
zouden we veel boze gezichten krijgen. Chip werkt met weken en dagen, 
daarom moeten de verjaardagen worden omgezet in deze notatie en na- 
tuurlijk in hex. Aan het begin van ieder jaar moeten de voor dat jaar gel- 
dende strings worden geladen, maar dat betreft dan alleen het deel 
beginnende met org 400. 

In de dattim-strings staat een tijd van 07:45 uur. Dat is de tijd waarop bij 
een verjaardag de gelukwens verschijnt. Misschien heeft u liever dat dit 
op een heel uur gebeurt. Dat kan natuurlijk, vandaar ook dat de tests pas 
beginnen vanaf seconde 45, dan is het slagwerk al lang afgelopen. 


; Listing 7.3: Calclock.asm (calendar and clock) 
led-clock plays melody on the hour and chimes hours 
; congratulates family and friends on their birthday 


; artimer register adressen and port b data register 


8d7 ; ar status control register 1 
8d5 ; ar mode control register 
8d9 ; ar reload register 

8da ar compare register 

Bel ; port b data register 


init0 p = clocdis point to the initial clock text 
ld O,f ; and load the initial display 
p = initstr point to string with intialize 
; values and.. 
v6,va - mp load initialize values into v6...va 
p = drb ; point to drb and.. 
v6,v6 to mp connect servo 1 to pb7 and reset 
; servo 1 
point to artimer mode control 
; register and.. 
set artimer - off and pwm - off 
; point to artimer compare register 
and.. 
; load with £0 


; to set artimer - off and pwm off 
to set artimer - on and pwm 
to increment pointer to next music 
table entry 


mainlo0 skip out 5 ; skip if chimes flag is not set 
jp chimes jump to chimes 
skip out 6 = 0 skip if hours flag is not set 
jp hourwrk ; jump to hours 
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mainlol Skip out f ; skip if the seconds flag is set 
jp mainlo0 
res out f 
call clock ; call the clock sub 


Test for seconds: 2d...36 (decimal: 45...54), set 
corresponding pointer 


v0 = seconds 

p = datsend ; set pointer to 00 byte 

skip vO <> 2d ; from now on, set every second 
p = datstr1 ; the pointer on a dattime string 
Skip vO <> 2e ; so the tests will be distributed 
p = datstr2 in time 

skip vO <> 2f 

p = datstr3 

skip vO <> 30 

p = datstr4 

skip vO <> 31 

p = datstr5 

skip vO <> 32 

p = datstr6 

skip v0 <> 33 

p = datstr7 

skip v0 <> 34 

p = datstr8 

skip v0 <> 35 

p = datstr9 

skip vO <> 36 

p = datstrA 


v0,v0 = mp ; get first string byte 
skip vO <> 00 


jp mainlo0 ; if byte - 00, pointer not set jump 


call dattime ; compare clock and string 

Skip vf «» 00 ; Skip if equal 

jp mainloO ; not equal, jump 

v0 = 06 ; Set pointer to message 

р + vO 

rotate ; rotate message on display, 
give beebs 


mainlo2 v0 = hours 
skip v0 <> 0a ; rotate text till 10 am o'clock... 
jp mainlo3 
skip in 0 = 0 ; ...Or till button in 0 is pressed 
jp mainlo2 
stop rotate 
p = clocdis ; point to the initial clock text 
ld 0,f and load the initial display 
jp mainlo0 
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hourwrk vb = rnd, 03 ; vb is random 0...3 
Skip vb «» 00 ; set p acording random to melody 
p - melody 
Skip vb «» 01 
p - hymne 
Skip vb «» 02 
p = stars 
skip vb <> 03 
p = auclair 
call musibox ; play melody 
v8 = hours ; get hours into v8 
Skip v8 «» 00 
0c ; if hours is null, make hours 12 
Oc 
v8 > vb ; double skip to invert skip 
; condition 
a 
vb ; so this is executed if skip not 
true 
30 
vb to timer ; set timer for delay between melody 
and chimes 
res out 6 ; reset hours flag, to not get here 
again 
set out 5 ; set chimes flag to chime hours 
jp mainlol 


skip v8 «» 00 

res out 5 ; reset chimes flag if all hours are 
chimed 

vb - timer 

skip vb = 00 

jp mainlol ; jump back if timer not yet zero 

p = beet ; point to chime sound 

call musibox ; chime 

v8 + ff ; hours - hours ZS 

vb = 20 

vb to timer ; set timer for delay between chimes 

jp mainlol 


clocdis asciz = $5 3 as 

; this is the inititial display 

initstr bytes c080f0e004 ; presets for v6...va 
Clock, subroutine to show the week, day of week and time on 
the LCD. 
Note that we use variables to load the display, 

; so we can use a loop. 


clock v0 = 01 ; initialise v0 and v1 
vi = 02 
v0 to tone ; tick every second 
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clockl ip vO <> 01 ; get the corresponding byte 
weeks ; and load into v3 
vO <> 04 
days 
vO <> 07 
hours 
vO <> 0a 
minutes 
vO <> 0а 
seconds 
p = a-stack ; we let p point to a-stack 
v3 to 3dec ; and convert v3 to 3 decimals 
р+1 ; we don't need the hundreds 
ld v0,v1 ; show tens and units on display 
м0 + 03 ; let vO and v1 point 
vl + 03 ; to next display position 
skip vO = 10 ; if v0 - 10 we are ready 
jp clockl ; else we loop 
Skip v3 - 00 
ret ; return if v3 <> 00 
v3 = minutes 
Skip v3 <> 00 
set out 6 ; set out 6 if minutes - 00 (and 
; seconds - 00) 
ret 


dattime, subroutine to compare the running clock against a 


date-time string 
pointed to by the pointer: 

; p -» weeks, days, hours, minutes, seconds (all values hex!) 
when a dattim string byte is 7f, it will not be tested 
when the condition is met for the first time, vf will be 
set as flag (<> 00) 
and bit 7 of weeks, date-time string will be set. As soon 
as the condition 
is no more valid this bit wil be reset. 


dattime у0,у4 mp ; move string date and time int 
7 о v0...v4 
VE = UE ; strip bit 7 from v0 
vO and vf 
skip уб <> 7f ; skip if weeks <> 7f 
jp dattim1 weeks - 7f, so do not test 
vf - weeks ; get clock weeks 
skip vO = vf ; Skip if equal 
jp dattim7 ; not equal, jump 
dattiml skip vl <> 7f skip if days <> 7f 
jp dattim2 days = 7f, so do not test 
vf - days ; get clock days 
skip vl - vf ; Skip if equel 
jp dattim7 ; not equal, jump 
Skip v2 <> 7f ; Skip if hours «» 7f 
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jp datt im3 
vf = hours 
skip v2 = vf 
jp dattim7 
datt im3 skip v3 <> 7Е 
jp dattim4 
vf = minutes 
skip v3 = vf 
jp dattim7 
dattim4 skip v4 <> 7f 
jp dattim5 
vf = seconds 
Skip v4 - vf 
jp dattim7 


dattim string is equal to 
; when this happens for the 
will be 0, it must be set 


dattim5 v0, v0 = mp 
vf - 80 
vf and vO 
skip vf = 00 
jp dattim6 


vf = 80 

vO or vf 

v0, vO to mp 

Skip a 
dattim6 vf - 00 


ret 

dattim7 v0, vO to mp 
vf - 00 
ret 


; musibox 
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; hours - 7f, so do not test 


get clock hours 

Skip if equal 

not equal, jump 

Skip if minutes «» 7f 
minutes - 7f, so do not test 


; get clock minutes 


skip if equal 


; not equal, jump 


Skip if seconds «» 7f 
seconds - 7f, so do not test 
get clock seconds 

skip if equal 

not equal, jump 


the clock 
first time, bit 7 of v0 (weeks) 
to 1 and vf must be made <> 00 


vf is bitmask 

strip d6...d0 

skip if ат = 0 

jump, this dattim skip has already 
been taken 


з VE is „or. bit 7 


set 7 of vO 


; write back to dattim string 


Skip always, let vf remain 80 
entry point for skip already taken, 
res flag 


write back to dattim string 
reset flag vf 


plays music from table, using artimer (pwm-timer) 


before entry pointer must 


musibox save p 
musibo0 rest p 
vb,ve — mp 


р + va 

save p 

Skip vb «» 00 
ret 

p - arrc 
vb,vb to mp 
p - arscl 


be set on table start 


save pointer, will be needed later 


; point into music table 
; vb-note, vc-octave, vd-duration, 


ve=delay 


; point to next music table entry 


save pointer 
skip if note <> 00 
ret if note = 00 


; point to ar reload register.. 


load note 


; point to ar status control register 


1 and.. 


Chip, een zelfbouw computertje 


musibol 


mus ibo2 


melody 


stars 


ve, ve 
vd to 


to mp 
timer 


= arme 


v9,v9 


to mp 


vd - timer 
skip vd - 00 
jp musibol 


У7,У7 


to тр 


ve + ff 

skip ve = 00 
jp musibol 
jp musibo0 


bytes 
bytes 
bytes 
bytes 
bytes 


bytes 
bytes 
bytes 
bytes 
bytes 
bytes 
bytes 
bytes 
bytes 
bytes 
bytes 
bytes 
bytes 
bytes 
bytes 
bytes 
bytes 
bytes 
bytes 
bytes 
bytes 
bytes 
bytes 
bytes 
bytes 
bytes 
bytes 
bytes 
bytes 


bytes 
bytes 


88a10407 
81a10407 
88a10407 
71811007 
00 


81a10807 
81a10807 
88210807 
95а10807 
95а10807 
88а10807 
81а10807 
71а10807 
60а10807 
60а10807 
71а10807 
81а10807 
81а11007 
71а11007 
81а10807 
81а10807 
88а10807 
95а10807 
95а10807 
88а10807 
81а10807 
71а10807 
60а10807 
60а10807 
71а10807 
81а10807 
71а11007 
60211007 
00 


60a11007 
95a11007 
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...load octave into predivider 
load duration into timer 


; point to artimer mode control 
; register and.. 


sel artimer = on and pwm - on 


; wait for duration of note 


set artimer - off and pwm - off 


; wait for delay time between notes 
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bytes 88210407 
bytes 81210407 
bytes 71a10407 
bytes 60811007 
bytes 95a11007 
bytes 88210407 
bytes 81410407 
bytes 71a10407 
bytes 60811007 
bytes 95211007 
bytes 88210407 
bytes 81a10407 
bytes 88210407 
bytes 71a11007 
bytes 00 


bytes 60210807 
bytes 60a10807 
bytes 60210807 
bytes 71410807 
bytes 81a11007 
bytes 71a11007 
bytes 60210807 
bytes 81a10807 
bytes 71a10807 
bytes 71a10807 
bytes 60a11007 
bytes 00 


bytes 88810407 
bytes 88810407 
bytes 71811007 
bytes 00 


org 400 ; birthdate strings and 
; congratulations 


datstr1 bytes 0206 ; 
bytes 072d ; hours - 07d, minutes - 45d 


weeks 02d, days - 06d 


bytes 7f00 seconds - don't care, filler 
messag1 asciz “Hoera, Willem is jarig!” 


datstr2 bytes 1102 ; weeks - 17d, days - 02d 
bytes 072d ; hours - 07d, minutes - 45d 
bytes 7£00 ; seconds - don't care, filler 
messag2 asciz “Hoera, Marjan is jarig!” 


datstr3 bytes 1405 ; weeks 20d, days - 05d 
bytes 072d ; hours - 07d, minutes - 45d 
bytes 7f00 ; Seconds - don't care, filler 
messag3 asciz "Ons Jan Peter is jarig!" 
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datstr4 bytes 1c03 ; weeks - 28d, days - 03d 
bytes 072d ; hours - 07d, minutes - 45d 
bytes 7£00 ; seconds - don't care, filler 

messag4 asciz "Remember onze Reinier! " 

datstr5 bytes 2105 ; weeks - 33d, days - 05d 
bytes 072d ; hours - 07d, minutes - 45d 
bytes 7f00 ; seconds - don't care, filler 

messag5 asciz “Hoera, Sara is jarig! " 

datstr6 bytes 2903 ; weeks = 41d, days - 03d 
bytes 072d ; hours - 07d, minutes = 45d 
bytes 7£00 ; Seconds - don't care, filler 

messag6 asciz "Hoera, Wil is jarig! * 

datstr7 bytes 2a05 ; weeks - 42d, days - 05d 
bytes 072d ; hours - 07d, minutes - 45d 
bytes 7£00 ; seconds - don't care, filler 


messag7 asciz "Hoera, Esther is jarig!" 


datstr8 bytes 2b04 ; weeks - 43d, days - 04d 
bytes 072d ; hours - 07d, minutes 45d 
bytes 7f00 ; seconds - don't care, filler 

messag8 asciz “Hoera, Bobsie is jarig!” 

datstr9 bytes 2e02 ; weeks 46d, days - 02d 
bytes 072d ; hours - 07d, minutes - 45d 
bytes 7f00 ; Seconds - don't care, filler 

messag9 asciz "Tante Andrea is jarig! " 

datstrA bytes 3203 ; weeks - 50d, days - 03d 
bytes 072d ; hours - 07d, minutes - 45d 
bytes 7£00 ; seconds - don't care, filler 

messagA asciz "Hoi, Michael is jarig! " 

datsend bytes 00 ; zero byte to check for unchanged 

; pointer 


Listing 7-3: De listing van Calclock.asm. 


Tot slot 

In de secondentests staan heel wat skips, waardoor dit programmadeel 
wel heel duidelijk is, maar een rechtgeaarde programmeur vraagt zich af 
of dit niet korter kan. Dat kan vrij eenvoudig met twee optellingen en twee 
tests van de carry (vf). De verkregen waarde is de index (0...) in een tabel 
en moet worden vermenigvuldigd met de offset tussen de entrees van de 
tabel. Alle felicitatiewensen moeten dan wel even lang zijn, wat met de 
skipmethode niet het geval is. 

Nuttig om te weten is ook dat instructiep + vx een 16 bit optelling is. 
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Chip, een zelfbouw computertje 8 - Chip als Homesystem 


8 Chip als Homesystem 


Inleiding 

We gaan onze woning automatiseren met Chip. Belangrijke factoren 
daarbij zijn de tijd en de temperatuur zowel binnen als buiten, onder ande- 
re om de kachel aan of uit te kunnen zetten afhankelijk van temperatuur 
en tijd. De tijd heeft alles te maken met de klok van Chip en daar kunnen 
we, dankzij hoofdstuk 7, mee lezen en schrijven. Ook willen we graag we- 
ten of het al donker genoeg is om de lamp aan de doen of dat de lamp juist 
uit kan. Chip Homesystem combineert al deze zaken (en meer) in een juist 
verband en maakt ons leven iets makkelijker. Bovendien wordt geld be- 
spaard omdat de verwarming niet onnodig aanstaat. 


Elektronische temperatuursensor 

De temperatuursensor is gebaseerd op de KTY10-6. Dat is een PTC met 
een nominale weerstand (£1 96) van 2 kQ bij 25 °C. In tabel 8-1 staan de 
weerstandswaarden voor enkele temperaturen. Let trouwens wel op de 6 
in het typenummer want een ander getal duidt op een andere nominale 
weerstandswaarde. 


Tabel 8-1: Weerstand van KTY10-6 sensor bij verschillende tempera- 
turen. 


Het schema 

Het schema van de temperatuurmeter is getekend in figuur 8-1. Er zijn 
twee sensors noodzakelijk, een voor het buiten temperatuurbereik van 
-20 tot +40°°C en een voor het binnen temperatuurbereik van 0 tot +40 °C. 
De sensors zijn identiek op twee weerstandswaarden na, tussen de haak- 
jes zijn die voor de buitensensor opgenomen. In wezen is de sensor in een 
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brugschakeling opgenomen, waarbij het spanningsverschil in de brug 
wordt versterkt. Het IC (LM258) heeft als uitgangstrap een NPN emitter- 
volger. Om het spanningsbereik van de uitgang groter te maken, is T1 op- 
genomen. 


Figuur 8-1: Het schema van de temperatuursensor. 


De “middentemperatuur” voor de binnensensor is 20 °C en voor de buiten- 
sensor 10 °C. De brug is dan in evenwicht (zie ook tabel 8-1) en de uit- 
gangsspanning is de halve voedingsspanning. De sensor is bij Chip vrij 
ongevoelig voor schommelingen in de voedingsspanning en, omdat 
slechts een deel van de temperatuur/weerstandcurve van de KTY10-6 
wordt gebruikt, vrijwel lineair. 
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De bouw van de schakeling 

Figuur 8-2 laat de print zien en figuur 8-3 de componentenopstelling. Ook 
nu is de print niet op schaal 1/1 voorgesteld. Ga naar www.vego.nl/chipen 
open de print in een beeldbewerkingsprogramma. Druk af op transparan- 
te folie met als afmetingen 34 x 13 mm’. Gebruik bij voorkeur 1 % metaal- 
film weerstanden, die zijn het minst temperatuurgevoelig. 


$19970 о 


КТҮ10-6 


Figuur 8-3: De componentenopstelling van de temperatuursensor. 


De montage van de print 

Het printje past in het U-vormig koelelement voor TO-220 halfgeleiders, 
zie figuur 8-4. De sensor wordt aan zijn draden omgebogen zodat hij vlak 
op de soldeerzijde ligt. Aan de aansluitkant komt als afstandstuk tussen 
de print en het koelelement een strookje epoxy en dan wordt het printje 
met een M3 boutje in het koelelement vastgezet, waarbij de sensor wordt 
vastgeklemdtussen de print en de koelvin. De lengte van het sensorsnoer 
is niet kritisch, bij onze opstelling was dat voor de buitensensor circa 5 me- 
ter. 
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Figuur 8-4: De montage van de sensor en de print. 


Opmerking 

Het is mogelijk voor de binnensensor een LM358 (0...+70 °C) te gebrui- 
ken. Dat kan ook voor de buitensensor, als men het printje binnenskamers 
houdt en de sensor via een snoertje verbindt. De LM258 heeft namelijk 
een groter temperatuurbereik (-25...+85 °C). 


Meten van de binnentemperatuur 

Listing 8-1 toont het programma Tempin.asm om de, door de binnensen- 
sor op input 1, gemeten waarde om te rekenen naar °C en op het display 
te zetten. Heel aardig is dat kan worden afgetrokken door op te tellen. Het 
schalen van de waarde is heel eenvoudig door Chip's 16 bit vermenigvul- 
dig- en deelinstructies. 


Meten van de buitentemperatuur 

Het programma Tempout.asm voor de buitensensor (listing 8-2) is iets 
ingewikkelder omdat nu ook een negatieve temperatuur mogelijk is. Als 
dat het geval is, wordt een minteken op het display gezet en wordt de ab- 
solute waarde van de temperatuur genomen. 


Nauwkeurigheid 

Door de initiële nauwkeurigheid van de KTY10-6 en de 1 % metaalfilm- 
weerstanden in de sensorschakeling zal de temperatuur vrij goed klop- 
pen. Als dat niet het geval is, is het ijken van de sensor een interessant 
klusje voor een regenachtige zondag. 
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; Listing 8.1: Tempin.asm 


main skip out f = 0 
call tempin 
jp main 


; tempin, subroutine to measure interior temperature with 
kty 10-6 
; chip temp-in sensor connected to input 1 


empin res out f ; reset seconds flag 
p = tempini ; point to text 
ld 0,f ; load display 
v0 = ana 1 ; get raw temperature 
v0 + сб ; subtract 3a (temp @ 0 9C) 
; by adding c6 
p - a-stack ; point to a-stack 
vi ; scaling factor is 18h/53h 
vo ; multiply by 18... 
vi 
vo ; and divide by 53 
v0 to 3dec mp ; convert to decimals 
p ; point to tens 
ld b,c ; load display 
zet 
tempinl asciz "Temp in = ac” 
; note: change 6F (o) in hexfile into LCD degree sign 


пи жи 


Listing 8-1: De listing van Tempin.asm. 


De hardware van Chip Homesystem 

In figuur 8-5 is de "hardware" van Chip Homesystemte zien. Op output 0 
is via een schakeltransistor een relais aangesloten voor sturing van een 
schemerlamp. Op output 1 een identieke schakeling voor sturing van een 
alarmlamp en een luide buzzer. 

Tenslotte is servo 1 beschikbaar om de kachel uit of aan te zetten. Het is 
niet mogelijk om voor de kachelbediening een standaard recept te geven 
omdat dat per geval kan verschillen. Bij ons bleek de draaiknop van de ra- 
diatorkraan een pal in te drukken of los te laten. Op de kraan hebben we 
een hefboomconstructie gemonteerd waarbij de servo via de hefboom de 
pal indrukt of loslaat. Belangrijk is wel, dat de pal door de servo helemaal 
wordt ingedrukt of losgelaten, maar dat de servo daarbij niet mechanisch 
tegen zijn eindblokkeringen oploopt. Dan zou de servomotor stroom blij- 
ven trekken en niet lang meegaan en ook kan de voeding worden overbe- 
last. 
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Listing 8.2: Tempout.asm 


main skip out f = 0 
call tempout 
jp main 


tempout, subroutine to measure exterior temperature with \ 
; kty 10-6 
; chip temp-out sensor connected to input 2 


empout res out f ; reset seconds flag 
p - tempou2 ; point to text 
ld t£ ; load display 
v0 - ana 2 ; get raw temperature 
vo + 98 ; subtract 68h (temp 0 $C) by 
; adding 98h 
skip vf - 00 ; Skip if below 0 øC 
jp tempoul 
vi = 00 v0 = abs(v0) 
vi vo ; note: 00h - eOh = 20h 
vi to уб 
p = tempou3 ; point to minus sign and ... 
ld a,a load display 
p - a-stack ; point to a-stack 
vi = 19 ; Scaling factor is 19h/3fh 
vO * vl to mp ; multiply by 19... 
wi = 3f 
v0 = mp/v1 ; and divide by 3f 
v0 to 3dec mp ; convert to decimals 
р + 1 ; point to tens 
ld b,c ; load display 
ret 
tempou2 asciz "Temp out- oc" 
tempou3 asciz “=" 
; note: change 6F (o) in hexfile into DF (LCD degree sign) 


Listing 8-2: De listing van Tempout.asm. 


Alles, inclusief de backlight LED van het LCD, wordt gevoed door een ge- 
stabiliseerde netstekervoeding (Friwo EP2) die op 5,5 V is afgeregeld. De 
Chip homecomputer wordt normaal door de netstekervoeding gevoed via 
diode D3, maar bij uitval van de netspanning door de 4,5 V batterij via D4. 
Het backlight wordt via een serieweerstand van 10 Q, 1 W direct door de 
netstekervoeding gevoed. 

Om aardlussen te voorkomen zijn alleen de actieve pennen van out 0, out 
1 en servo 1 aangesloten. De 0 V loopt via de voeding. 
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Figuur 8-5: De volledige elektronica van het Chip Homesystem. 
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Op input 0 is het keyboard aangesloten, op input 1 de sensor voor de bin- 
nentemperatuur, op input 2 die voor de buitentemperatuur, op input 3 
een LDR die het buitenlicht meet en op input 4 een buitendeur schake- 
laar, zo’n type met een reedswitch, dat door een magneet op de deur ge- 
sloten wordt gehouden en open gaat als de deur wordt geopend. In dat 
geval wordt input 4 naar laag getrokken door de 10 Ю weerstand. 


De behuizing van het systeem 

Omdat wij ons Chip experimenteersysteem nodig hebben voor het reali- 
seren van andere toepassingen, hebben we nog een Chip gebouwd en 
die samen met een LCD (met backlight LED) en een keyboardje netjes in 
een OKW standaardbox 1 met een lengte van 150 mm gemonteerd, zie fi- 
guur 8-6. De Chip print zit met twee zeskant afstandstukken op de bodem 
van het kastje vast, met tussen de bodem en de afstandstukken een alu- 
miniumplaatje, dat door de metalen afstandstukken verbonden is met de 
massa van de Chip print. In de linkerzijkant van het kastje zijn een aan/uit- 
schakelaar en een connector voor de seriële verbinding opgenomen. De 
homecomputer is op een goed bereikbare plaats op ooghoogte tegen de 
wand bevestigd. Recht eronder, iets boven de plint, is eenzelfde kastje 
voor de opname van aanvullende elektronica gemonteerd. Tussen de 
kastjes zit een kabelgoot en in de kastjes zijn uitsparingen gemaakt voor 
de bedrading via de kabelgoot. 


Figuur 8-6: De behuizing van het Chip Homesystem. 
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Homesys software 

Homesys.asm (listing 8-3) is in wezen een combinatie van listings die be- 
sproken zijn. Voor de aansturing van het display wordt een aparte teller 
gebruikt, die door output f eenmaal per seconde wordt verhoogd. Hier- 
door is een “display verdeling” in de tijd verkregen. Eerst wordt gedurende 
drie seconden de actuele tijd getoond, dan gedurende een seconde elk, 
de binnentemperatuur, gevolgd door de buitentemperatuur en de geme- 
ten waarde van het daglicht. Als de kachel aanstaat wordt de display cy- 
clus besloten met “Heater is active”. Als basis voor het regelen van de 
kachel wordt een aparte variabele gebruikt temp set. De temperatuur die 
door de binnensensor is gemeten, wordt vergeleken met temp set. Als de 
temperatuur lager is wordt de kachel aangezet, is hij hoger, dan wordt hij 
uitgezet. Temp set wordt door drie tijdstrings geregeerd. 's Morgens vroeg 
wordt hij op 25 °C ingesteld, om 8 uur op 20 °C en ‘s avonds weer wat ho- 
ger. 

Afhankelijk van de hoeveelheid buitenlicht én de tijd wordt de schemer- 
lamp geregeld. ‘s Nachts is hij altijd uit, overdag wordt hij ingeschakeld als 
het buiten donker is. Dus als overdag zwarte wolken de lucht gaan bedek- 
ken, gaat de lamp aan. 

Door middel van het keyboard kunnen instellingen worden "overruled". 
Door op * te drukken, komt men in eerste menukeuze “Set temperatu- 
re?". Door nogmaals op * te drukken verschijnt de volgende menukeuze 
“Start egg-timer?", gevolgd door respectievelijk “Set light on/of?", 
“Set alarm on/of” en “Set date & time?”. Bij deze laatste optie wordt di- 
rect geschreven naar registers in de microcontroller. 

Een keuze wordt bevestigd door op # te drukken. Zolang deze ingedrukt 
blijft is de ingestelde waarde te zien. Na loslaten kan, waar toepasselijk, 
een waarde worden ingevoerd. De eierwekker kan worden ingesteld op 
maximaal 99 minuten en 99 seconden, zolang hij loopt verschijnt de reste- 
rende tijd op het display. Met menukeuze “Set alarm on/of?” kan het bui- 
tendeuralarm op scherp worden gezet. Na aanzetten heeft men vijf 
minuten de tijd om het huis te verlaten. Daarna zal het openen van de bui- 
tendeur het alarm doen afgaan. 

“Set temperature” en “Set light on/off” zijn tijdelijke instellingen, name- 
lijk tot de volgende van toepassing zijnde tijdstring geldig wordt. 


Opmerking 
Een belangrijk aspect bij de verwerking van de toetsinvoer is dat de hoofd- 
lus van het programma altijd blijft doorlopen. Dit deel van het programma 
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is wat ondoorzichtig om direct te begrijpen, het opstellen van een stroom- 
diagram maakt alles veel duidelijker. 

De ingestelde waarden en tijden zullen voor sommige lezers niet direct 
van toepassing zijn, maar dat is nu juist het aardige van dit systeem. Men 
kan alles aanpassen en het programma kan gemakkelijk worden uitge- 
breid. Op de buitenwacht maakt Chip als Homesystem in elk geval veel in- 
druk. 


Listing 8.3: Homesys.asm 

; program Lo auLomate the house-heating, house-lighting, 
intruder-alarm 
includes running clock with weeks, days, hours, minutes 
and seconds 
also an external temperature sensor and an eggtimer. 
new functions can easily be added. 


; use of inputs, outputs and variables 


0 = keyboard 
1 temp in sensor 
2 temp out sensor 
3 LDR sensor 
4 door switch (alarm) 
relay 1 - light 
relay 2 - alarm 
- continuity check 
- rotate text is active 
waiting time flag before setting alarm 
alarm on/off 
light automatic on/off 
heater on flag 
eggtimer on flag 
wait-on flag 
- key down flag 
select flag 
is set every second by the operating system 
general purpose variables 
light value low 
light value high 
temp low 
Lemp medium 
temp high 
temp set 
time distributor 
= selector 
carry/borrow/overflow flag 


out 


; out 
; out 
; out 
out 
; out 
out 
out 
out 
out 
out 
vO-v. 
v7 
v8 
7 v9 
va 
; vb 


Ф но Oo pe Ae ta 


u 


egu 8aa ; internal weeks register 
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set out 9 

p = initvar 
v7,ve - mp 
son 

set out 4 

res out 4 
Skip out 8 - 
jp main 1 
skip in 4 = 0 


jp main_1 

set out 1 

v0 = 02 

v0 to mintime 
skip out d = 
jp keydown 
skip out e 

jp selectl 
skip ve «» 

jp main 3 


jp getkeyn 


skip ve <> 
jp settem1 
skip ve <> 
jp setegg1 
skip ve <> 
јр settiml 
v0 = key 0 
skip v0 <> 
jp select 
skip out f 
jp main 0 


distribution in time 


secs 0 


res out f 
call checkDT 


Skip out 6 - 
jp rotatin 
Skip out b - 
jp secs 1 


call eggshow 
jp main D 

vd + 01 

skip vd = 01 
jp secs 2 

p = clock2 
1а 0,f 


1 


5 
0 


0 
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set. light automatic on 


initialise v7 - ve 

starL servo drive 

set out 4 for checking with scoop 
reset out 4 for checking with scoop 
Skip if alarm flag is on 


skip if house entry door switch 
activated 


activate alarm 


load minutes timer 

Skip if .not. key down 

key beeing pressed, jump to keydown 
skip if .not. select active 

select active, jump to select 

Skip if ve .not. active (- ft) 
select .not. active, jump to 
continue main loop 

select is active, try Lo get a 

key value 

jump according to selector value ve 


get a key value 

akip if .not. За (= ©) 

got a key value 3a, jump to select0 
Skip if on the seconds flag 

no seconds flag, loop to main 0 


(every second) 


reset seconds flag 

check date-time strings and if 
necessary take action 

Skip if rotating text is off 


Skip if eggtimer is active 
jump to continue distribution 
in time 

show eggtimer value 

and loop to main 

increment time distributor vd 
perform the task as set by vd 


point to the initial clock text 
and load the initial clock display 
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call clock ; call the clock sub 
jp main 0 
Skip vd - 02 
jp secs 3 
call clockSM refresh clock seconds and minutes 
skip out l= 1 ; Skip if alarm has been activated 
jp main O 
v0 = mintimer ; get minutes timer 
skip v0 <> 00 ; skip if not yet zero 
res out 1 ; zero, set alarm off 
jp main 0 
skip vd - 03 
jP secs 4 
call clockSM ; refresh clock seconds and minutes 
skip out 7 = 1 skip if alarm activate waiting 
; time flag 
jp main 0 
vO = mintimer ; get minutes timer 
skip vO = 00 ; Skip if zero 
jp main 0 ; not yet zero 
res out 7 ; reset alarm activate waiting 
time flag 
-.. and set alarm to sharp 


set out 8 
jp main 0 
Skip vd - 04 
jpP secs 5 
call clockSM ; refresh clock seconds and minutes 
call birtday ; check for birthday, if so, 
; congratulate 
jp main D 
Skip vd - 05 
jp secs 6 
call tempin ; call show interior temperature 
jp main 0 
skip vd - 06 
jp secs 7 
call tempout ; call show exterior temperature 
jp main 0 
Skip vd - 07 
jp secs 8 
call daylite call show indicative external 
; light value 
skip out а = 1 ; skip if heater on flag 
vd - 00 ; Show clock again if heater is off 
jp main 0 
p = heaton'' ; else show heaton text 
ld 0,f 
vd = 00 
jp main 0 
heatonT asciz "Heater is active" 


rotatin v0 = mintimer ; get minutes timer 
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skip v0 skip if run out 

jp main O still running, jump to main 

res out 6 reset rotate active flag 

stop rotate disable rotate and reset display 
vd - 00 set seconds sequencer to phase 0 
jp main 0 jump to normal sequence display 


keydown, jump routine to wait for key release or time out 


keydown v0 = key 0 v0 is key value 
skip vO = ЗЕ ; skip if no key pressed 
jp keydwnl ; jump, key still beeing pressed 
res out d ; key has been released, 
reset key down 
jp main 0 and jump to main 0 
keydwnl vO = timer get time out value 
skip уб = 00 
jp main_0 time still running, jump to main 0 
res out c ; reset wait on flag 
; reset select flag 
; reset time distributor 
; set selector ve to off 
; give a sound signal 
; while key beeing pressed 
; and loop to main 0 


Lo tone 
main 0 


getkeyn, jump routine to get a numerical key value for passing 
to selected 
jump routine main 2 according to selector ve 


getkeyn v0 = key 0 get a key value into v0 
vi = 39 
skip v0 > v1 skip if .not. numerical (0-9) 
jp getkeyl jump, got numerical value 
vO = timer get time out value 
skip v0 = 00 skip on time out 
jp main D not yet time out, jump to try 
to get good value 
ve set selector ve to off 
vd - set time distributor to show 
clock (load mask) 
jp main 0 and continue main task 
gelkeyl set out d got key value, set key down 
vl - 03 
vi to tone give key beep 
vi - 8c circa 5 seconds 
vl to timer set time out value 
je main 2 jump to selected set routine 
in main 2 


select, jump routine to make a choice ouL of rotating menus 
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vO = 02 
v0 to tone give a key beep 
vd = 00 reset time distributor 
vd to mintimer set minutes timer to zero and ... 
res out 6 ; reset rotate text flag in case 
stop rotate text was rotating 
res out b ; disable eggtimer 
p = seltxt? ; display the ? 
dd Bo ; at position f 
p - seltxtO ; set p to the first of the 
; selections 
ld 0,e load chars 0-e 
ve - 00 ; preset the selector to 00 
set out e set selection to active 
set out d ; set key down to acLive 
vO = 3c 
vO to timer ; load time out value 
jp main O jump back to main 0 
selecti skip out c = 0 ; entry point for rotate selections 
jp select2 ; jump if time out value already 
; loaded 
v0 = 3c ; € = 0, load time out value 
v0 to timer 
set out c ; and set c 
v0 = key 0 ; get a key value 
skip v0 <> 3a 
jp select3 ; jump to select3 if key 
; value - 3a (*) 
Skip v0 <> ЗЬ 
jp select4 ; jump to select4 if key 
value - 3b (#) 
vO = timer get time out value 
skip v0 = 00 ; skip if time is out 
jp main 0 not yet, keep Lrying to get 
3a or 3b 
res out e ; time is out, reset selector 
(no more active) 
res out c reset wait on 
jp main 0 and loop to perform main tasks 
select3 v0 = 02 got key value 3a (*) 
v0 to tone give key beep 
skip ve «» 40 Skip if .not. last selector value 
ve = f0 yes, last, preset to £0 
ve + 10 ; add 10 to selector value 
(last will become 00) 
р = seltxt0 ; set pointer to first slection text 
р + ve ; add selector offset to p 
ld 0,e ; and put text on display 
res out c reset wait on flag 
set out d set keydown flag 
v0 = 3c 
v0 to timer ; load time out value 
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jp main 0 loop to cycle through selection 
while .not. time out 
select4 vO = 02 got a key value 3b (#) 
v0 to tone give key beep 
res out c reset wait on 
res out e reset selector flag (disable 
jump to select) 
set out d set key down flag 
v0 = 6c 
v0 to timer set time-out value 
Skip ve «» 00 and jump to entry point of set 
routines 
jp settemp according to selector value ve 
skip ve <> 
jp seteggt 
skip ve <> 
jp setlite 
skip ve <> 
jp setalar 
skip ve <> 
jp settime 
break ; never reach this point 
seltxt0 asciz “Set temperature” selector ve = 00 
asciz “Start egg-timer” selector ve 10 
asciz "Set light on/of" selector - 20 
asciz "Set alarm on/of" selecLor ve - 30 
asciz "Set date & time" selector ve = 40 
seltxt? asciz "?" 


; 
; setalar, jump routine to set alarm on or off 


setalar Skip out 8 skip if alarm on 
Skip out 7 skip if waiting time flag 
jp setalal jump to set alarm off 
set out 7 set alarm waiting time flag on 
v0 = 05 
v0 to mintimer set waiting time before setting 

alarm to 5 minutes 

p = setala4 point to text on 
jp setala2 

setalal res out 7 set waiLing time flag off 
res out B set alarm flag to off 
res out 1 set alarm off 
v0 = 00 
v0 to mintimer clear minutes timer 
v0 to sectimer 
p = setala3 point to text off 
ld 0,£ put on display 
ve = ff set selector ve to off 
vd = 00 reset time distributor (to load 

clock mask and clock) 

jp main_0 jump to main task 
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setala3 asciz "alarm = set off!" 
setala4 asciz "alarm = set on! ” 


setlite, jump routine to set light on or off 


setlite skip out 0 ; skip if light off 
jp setlit1 ; jump to set light off 
res out 9 set light automatic to off 
set out 0 set light on 
p = setlit4 ; point to text on 
jp setlit2 
setlitl res out 9 ; set light automatic to off 
res out 0 ; set light off 
p = setlit3 ; point to text off 
setlit2 ld 0,f ; put on display 
ve - ff ; set selector ve to off 
vd - 00 ; reset time distributor 
; load clock mask) 
jp main 0 ; jump to main task 
setlit3 asciz "light - set off!" 
setlit4 asciz "light - set on! " 
D 
seteggt, jump routine to load the eggtimer 
seteggt p - setegg4 entry point from select, point 
to mask 
1а 0,f display mask 
p - a-stack ; point p to a-sLack 
v0 = 30 ; and load hundreds with 30 = ascii 0 
v0,v0 to mp 
pti ; set p to tens 
v2 - 09 ; set v2 as index to Lens of minutes 
jp main O jump to main to get a key value 
; (or time out) 
setegg1 v0,v0 to mp ; load key value into mp + 1 (tens) 
1d v2,v2 ; put tens on display according 
index v2 
pri ; increment pointer 
v2 + 01 ; increment index v2 
skip v2 «» 0b 
jp setegg2 ; jump if index v2 - 0b 
Skip v2 «» Of 
jp setegg3 ; jump if index v2 - Of 
jp main 0 ; not Ob, not Of, jump to main to 
; get next key value 
setegg2 p - a-stack ; index - Ob, 
v3 - 3dec mp ; save minutes in v3 
ptt ; point p to tens 
v2 - 0d ; adjust index v2 to tens of 
; seconds on display 


jp main 0 ; jump to main to get next key values 
setegg3 p - a-stack ; index - Of 
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v0 = 3dec mp ; convert key values to byte into vO 
v0 to sectimer  ; and load into seconds timer 
v3 to mintimer  ; load minutes timer 
ve = ff ; set selector ve to off 
set out b set out b as flag for eggtimer 
; loaded 
jp main 0 ; resume main task 
setegg4 asciz "Eggtime: ??m ??s" 


; 
; settemp, jump routine to display/set the 'set' temperature 


settemp p - settem2 ; entry point from select, point 
; to mask 
ld. 0„® ; display mask 
p = a-stack ; convert vc (- set temperature) 
vc to 3 dec mp  ; to decimal on the a-stack 
pti ; point to tens (hundreds will be 
; 30h = ascii 0) 
ld bre ; display tens and units 
v2 - Ob ; set v2 as index to display 0b 
; (tens of minutes) 
jp main 0 ; jump to main to get key value 
; (or time out) 
setteml у0,у0 to mp ; load key value into mp * 1 (tens) 
ld v2,v2 ; load on display via index v2 
p*1 ; point to units 
v2 + 01 point index v2 to units 
skip v2 - Od ; Skip if we got tens and units 
jp main 0 not yet ready, jump back to main 
p = a-stack ; got two values 
vc ; convert to byte and load into 
vc (new 'set' temp) 
ve = set selector ve to off 
vd = reset time distributor (to load 
clock mask) 
ip ; jump to main task 
settem2 asciz “Temp set = dps 
note: change 6F (o) in hexfile into DF (LCD degree sign) 


settime, jump routine to display/set the date & time 


; point to date/time mask 

1@ OE put on display 

p - a-stack point p Lo a-stack 

v0 = 30 and load hundreds with 30 = ascii 0 
v0,vO0 to mp 


time p - settimT 


set p to tens 

nibble counter - 00 
display index counter - 00 
byte index counter - 00 


settiml load key value into mp + 1 (tens) 
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v2 + 01 ; increment nibble counter 

v3 + 01 ; increment display index counter 

1d v3,v3 ; load on display via index v2 

р+1 ; point to units 

vO = 01 ; is the nibble counter odd 

v0 and v2 ; get only bit 0 

skip v0 = 00 ; skip if even 

jp main_0 ; yes, odd get low nibble 

p = a-stack 

v0 = 3dec mp ; convert to byte 

р = settimS ; point to start of temporarily 
storage place 

p + v4 point to storage position 

v0,vO to mp store byte 

v4 + 01 ; increment byte index counter 

v3 + 01 increment display index counter 

p - a-stack 

pti point to tens on a-sLack 

Skip v4 - 05 skip if we got 5 bytes 

jp main D 

р = settims ; point to start of storage 

v0,v4 = mp ; copy bytes into v0-v4 

p = weekvar ; point to clock weeks internal 
register 
copy variables into internal regs 
set selector ve to off 
reset time distributor (to load 
clock mask) 
jump to main task 

settimT asciz S217 ? SES E ; date & time mask 
settims bytes 0011223344 ; temporarily storage place for bytes 


subroutine checkDT, compares date-time strings against the 
running clock 
and takes the necessary action when equal. 


checkDT p = DTlites ; point to set light automatic on 
; DT-string 
call dattime ; compare 
skip vf - 00 ; skip not equal 
set out 9 ; set light automatic flag on 
p - DTliteR ; point to set light automatic off 
; DT-string 
call dattime ; compare 
skip vf «» 00 ; skip if equal 
jp checkD1 ; jump next 
res out 9 ; set light automatic flag off 
res out 0 ; set light off 
checkD1 p = DTtempH ; point to set Lemperature high 
DT-string 
call dattime ; compare 
skip vf - 00 Skip not equal 
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vb to vc 
DTtempM 


call dattime 
skip vf = 00 
va to vc 


p = DTtempL 


call dattime 
Skip vf - 00 
v9 to vc 

ret 


Date Time string to 


DTlites bytes 7f7t 
bytes 0600 


bytes 7f 


Date Time string to 
at 19.00 


bytes 7£7£ 
bytes 1300 
bytes 7f 


DTliteR 


Date Time string to 
at 05.30 


bytes 7£7£ 
bytes 051e 
bytes 7f 


DTtempH 


; Date Time string to 
; at 08.00 

bytes 7f7f 
bytes 0800 
bytes 7f 


DTtempM 


Date Time string to 


bytes 7f7f 
bytes 121e 
bytes 7f 


DTLempL 
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copy high temperature into temp set 
point to set temperature medium 
DT-string 

compare 

skip not equal 

copy medium temperature into 

Lemp set 

point to set temperature low 
DT-string 

compare 

skip not equal 

copy low temperature into temp set 


light automatic on, every day at 06.00 


; weeks, days; note: 7f - does't care 
; hours, minutes 
; seconds 


light automatic off, every day 
; weeks, days 

; hours, minutes 

; seconds 

temperature to high, every day 
; weeks, days 

; hours, minutes 

; seconds 


temperature to medium, every day 


; weeks, days 
; hours, minutes 
; seconds 


Lemperature to low, every day at 18.30 
weeks, days 


; hours, minutes 
; seconds 


; birtday, subroutine to show birthday rotating text on display 
; because weeks and days are used these must be adjusted 


every year 
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birtday р = Dibirtl ; point to birthday date-time 1 


call dattime ; compare 

Skip vf <> 00 ; Skip if equal 

ret ; else return 

set out 6 set rotating flag 

p - birttxl ; point to birthday text 
rotate ; Start rotating 

vO = 05 

v0 to mintimer  ; for 5 minutes 

ret 


birttxl asciz “Congratulations Bob!” 


DTbirt1 bytes 2b02 ; weeks, days; Week 43, day 2, 


; 08:10:00 
bytes 080a ; hours, minutes 
bytes 7f ; seconds 


eggshow, subroutine to show minutes and seconds timer 
the eggtimer mask has already been displayed by seteggt 


eggshow v0 = mintimer get minutes into v0 


p = a-stack 
v0 to 3dec mp ; convert Lo decimal on the a-stack 
pti point to tens 
ld 9,a ; display tens and units 
vl = sectimer ; get seconds into vi 
p - a-stack 
v1 to 3dec mp ; convert to decimal on the a-stack 
pti ; point to tens 
ld d,e display tens and units 
v0 or vi v0 = v0 .or. vl 
skip vO = 00 skip if both zero 
ret ; not yet zero, return 
res out b ; reset eggtimer active flag 
vd = 00 set time distributor to 00 
; (load clock mask) 
vO = ff ; alert user that 
vo ; time has run out 
vO = 03 ; because the beeper is not always 
heard 
vi = 01 ; we use the alarm to notify the user 
v0 to sectimer 
vl to mintimer 
set out 1 
ret 


clock, subroutine to show the week, day of week and time 
on the LCD. 


; Note that we use variables to load the display, 


so that we can use a loop. 
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01 ; initialise v0 and vi 
- 02 
vO <> 01 ; get the corresponding byte 
- weeks ; and load into v3 

vO <> 04 

days 

v0 <> 07 

hours 

v0 <> ба 

minutes 

v0 <> Od 

seconds 
p = a-stack ; we let p point to a-stack 
v3 to 3dec ; and convert v3 to 3 decimals 
pti ; we don't need the hundreds 
1d vO, v1 ; show tens and units on display 
v0 + 03 ; let v0 and v1 point 
vi + 03 to next display position 
skip vO = 10 if v0 - 10 we are ready 
jp clocki else we loop 
ret 

clock2 asdiz ~ B ML 3 ш ; this is the inititial 
; display 


clockSM v0 = seconds this short routine refreshes only 
p - a-stack ; the seconds and minutes, in order 
v0 to 3dec mp ; to save time 


pti probably nobody will notice 
the hours... 


ld d,e 

v0 = minutes 
p = a-stack 
v0 to 3dec mp 
p+ 

1а a,b 

ret 


tempin, subroutine to measure interior temperature with 

kty 10-6. 

chip sensor connected to input 1. 

Midpoint is 20 øC, so the range is 0-40 øC. At 20 9C Rkty 
10-6 - 1926 à 

The formulae for the temperature in ФС: (raw - 3dh) * 18h/53h 
(see curve). 


Lempin p = temitxt ; set pointer to temperature in mask 
ld O,f ; display mask 
v0 - ana 1 ; get raw temperature 
v0 + c3 ; subtract 3dh (temp @ 0 øC) by 
; adding c3h 
set p to a-stack 
; and 
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multiply raw by 18h 
then 

divide by 53h 
convert to decimal 
set p to tens 
display temp in øC 


check measured temperature (ist value) against set temperature 
(sol. value), 

when ist val « sol val then set heater on, 

when ist val » sol val then set heater off 

when ist, val = sol val then do nothing (hysteresis) 


skip v0 <> vc ; Skip ist val <> sol val 
ret equal, return nothing to do 
vo - ist val - ist val - sol val 
skip skip if ist val > sol val 
(vf - borrow) 
jp tempinl ; ist val « sol val, jump to set 
heater on 
call resheat ; call sub to set heater off 
ret 


tempinl call setheat ; call sub to set heater on 


ret 


temitxt asciz "Temp in - zoe 
; note: change 6F (o) in hexfile into DF (LCD degree sign) 


setheat and resheat, subroutines to set heater on if not 
already on, 

or off if not already off, the heater motor is servo 1 
out a = heater on flag 


setheat skip out a 0 ; skip if heater is off 


ret ; already on, return 

set out a ; set heater on flag 

vO = ff 

v0 to sl ; and rotate heater servo 
ret 


; 
resheat skip out a ; skip if heater is on 
ret ; already off, return 
res out a ; reset heater on flag 
v0 = 0а 

v0 to sl ; and rotate heater servo 
ret 
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kty 10-6 

chip sensor connected to input 2 

Midpoint is 10 @C, so the range is -20 +40 oC. At 10 ФС 
Rkty 10-6 = 1783 ё 

The formulae for the temperature in @C: (raw 68h) * 19h/3fh 
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; (see curve). 
tempout = temotxt ; set pointer to temperature out mask 
display mask 
get raw temperature 
subtract 68h (temp @ 0 eC) by 
adding 98h 
skip on no carry 
jp tempoul ; there was a carry, so jump 
vl = 00 ; the temperature is below zero 9C 
vi vO ; get the negative temperature by 
subtracting from 00 
vi to уб ; save into v0 
p = tempmin set pointer to minus sign 
ld a,a ; put on display 
tempoul p = a-stack ; set pointer to a-stack 
vil = 19 and 
v0 * vl to mp multiply raw by 19h 
vi = 3£ then 
v0 = mp/v1 divide by 3fh 
v0 to 3dec mp convert to decimal 
р+ 1 ; point to tens 
Id bie ; and display temperature in øC 
ret 
temotxt asciz "Temp out- ?? ?C" 
tempmin ascia "-" 
; note: change 6F (о) in hexfile into DF (LCD degree sign) 


daylite, subroutine to measure and display daylight value V 
from LDR 

LDR connected to input 3 

the value is only indicative of the light 


daylite p - daylit2 ; point to text 
1d 0,£ ; display text 
v0 = EE ; ff = xor mask 
vl = ana 3 ; vl - light value 
vO xor vi ; take complement of light value 
р = a-stack 
v0 Lo 3dec mp ; convert to decimal 
даха; ; put on display 
skip out 9 = 1 ; skip if light automatic is on 
ret ; not on, return 


check measured light value against light value low (v7) 
and high (v8) 

; when measured < low then set light on, 
when measured > high then set light oft 


v0 to vi ; copy light value into vi 
70 - v7 ; vO = measured low 
skip vf ; Skip if vO > v7 
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jp daylitl ; jump Lo set light on 
vl - v8 ; vl = measured - high 
Skip vf - 00 ; skip if vl > v8 
ret ; do nothing: low » measured »- high 
res out 0 ; set light off 
ret 
dayliti set out O ; set light on 
ret 
daylit2 asciz "Lightvalue - т 


dattime, subroutine to compare the running clock against а 
date-time string 
; pointed to by the pointer: 
; p -> weeks, days, hours, minutes, seconds (all values hex!) 
; when a dattim string byte is 7f, it will not be tested 
when the condition is met for the first time, vf will be 
set as flag («» 00) 
and bit 7 of weeks, date time string will be set. As soon 
as the condition 
is no more valid this bit wil be reset. 


dattime v0,v4 = mp ; move string date and time into 
+; Ч0...у4 
УЕ = TE ; strip bit 7 from vO 
v0 and vf 
skip v0 <> 7f ; skip if weeks <> 7f 
јр datt iml ; weeks - 7f, so do not test 
vf - weeks ; get clock weeks 
skip v0 = vf ; Skip if equal 
jp dattim7 ; not equal, jump 
dattiml skip Vi <> 7f ; Skip if days <> 7f 
jp dattim2 ; days = 7f, so do not test 
vf - days ; get clock days 
skip vl = vf ; Skip if equel 
jp dattim7 ; not equal, jump 
Skip v2 <> 7f ; Skip if hours <> 7f 
jp dattim3 ; hours - 7f, so do not test 
vf - hours ; get clock hours 
skip v2 - vf ; Skip if equal 
jp dattim7 ; not equal, jump 
dattim3 skip v3 <> 7f ; Skip if minutes «» 7f 
jp dattim4 ; minutes - 7f, so do not test 
vf - minutes ; get clock minutes 
skip v3 - vf ; Skip if equal 
jp dattim7 ; not equal, jump 
skip v4 <> 7f ; Skip if seconds «» 7f 
jp dattim5 ; seconds - 7f, so do not test 
vf = seconds ; get clock seconds 
Skip v4 - vf ; Skip if equal 
jp dattim7 ; not equal, jump 


; dattim string is equal to the clock 
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; when this happens for the first time, bit 7 of vO (weeks) 
; will be 0, 
; it must be set to 1 and vf must be made «» 00 


dattim5 v0, vO = mp 
vf = 80 ; vf is bitmask 
vf and vO ; strip 46...90 
Skip vf - 00 skip if d7 = 0 
jp dattim6 ; jump, this dattim skip has already 
; been taken 
vf = 80 ENE JB .ок. bit 7 
vO or vf ; set 7 of vO 
v0, vO to mp ; write back to dattim string 
Skip a ; Skip always, let vf remain 80 
dattim6 vf - 00 ; entry point for skip already taken, 
reset flag 
ret 
dattim7 v0, vO to mp ; write back to dattim string 
vf - 00 ; reset flag vf 
ret 


org 7f0 
; preset values are loaded at start-up 
v7 ; light value low- 100d 
v8 ; light value high- 130d 
v9 ; temp low= 16d øC 
va ; temp med- 20d øC 
vb ; temp high- 22d ФС 
= ; ‘set’ temperature- 20d eC 
; seconds sequencer- 00 
; selector- ff (idle) 


; viv8v9vavbvevdve 
initvar bytes 64821014161400ff 


Listing 8-3: Het complete Homesys.asm programma voor de auto- 
matisering van een huis. 
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9 Chip als accutester 


Inleiding 

Om Chip als accutester te gebruiken zijn enkele aanvullende hardware 
componenten nodig. In de eerste plaats natuurlijk het keyboard voor de 
gegevensinvoer en verder een printje met de ontlader. Een heel aardig 
aspect is, dat gebruik kan worden gemaakt van hulpprogrammaatjes om 
de hardware te testen. 

Deze NiCad-ontlader kan de capaciteit meten van zowel losse cellen als 
accupakketten met een open spanning tot 35 V. Meestal zullen dat 
oplaadbare cellen zijn, maar door de ruime instellingsmogelijkheden kun- 
nen alle soorten cellen worden gemeten, ook niet-oplaadbare, mits de 
ontladen celspanning tussen 0,5 V en 2,5 V ligt. Tijdens de ontlading 
wordt iedere minuut de momentele spanning in het geheugen opgesla- 
gen, zodat na afloop van het ontlaadproces de spanningscurve kan wor- 
den getekend. 


Gegevens accutester 
De gegevens van deze schakeling kunnen als volgt worden samengevat. 
— ontlaadstroom: 
100-2500 mA per 10 mA 
— ontlaadspanning: 
0,5-2,5 V/cel 
— aantal cellen: 
1-20 
— maximale ingangsspanning: 
35 V 
— maximale dissipatie: 
60 W 
— maximale aflezing: 
9.999 mAh 
— opslag van instellingen en metingen: 
in EEPROM 
— sample geheugen: 
508 bytes 
— sample interval: 
1 minuut 
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— max. sampling tijd: 
8 uur 27 minuten 

— max. elapsed time: 
24 u 59 m 59s 

— uitlezing: 
16 karakter LCD 

— gegevensinvoer: 
12-toets keyboard 

— communicatie met PC: 
RS232, 19.200,n,7,2 


Het schema van de ontlader 

De ontlader, waarvan het schema in figuur 9-1 is getekend, bestaat uit drie 
delen. Het bovenste deel dient voor de spanningsverzorging en het aan- 
of uitschakelen van de ventilator. Voor de voeding is een ongestabiliseer- 
de stekkervoeding gebruikt met omschakelbare uitgangsspanning: 
12-9-7,5-6-4,5-3 V. De stabilisator (IC1) is een low drop type, dat al bij 6 V 
ingangsspanning precies 5 V levert. Door de uitgangsspanning van de 
voeding om te schakelen (6-12 V) kan de snelheid van de ventilator wor- 
den geregeld. De netvoeding wordt aangesloten op K3, de ventilator op 
K2 en op K1 wordt de voedingsconnector van Chip gezet. De spanning 
van de accu wordt gemeten op connector K6 (+aV en -aV). 

Via een snoertje wordt deze connector direct verbonden met de apparaat- 
klemmen, zodat de spanningsval over de zekering en stroomvoerende 
bedrading het meetresultaat niet beïnvloedt. Het signaal op K6 wordt gefil- 
terd door R4 en C3 en vervolgens door een instelbare verzwakker inet 
drie bereiken gevoerd: 10,2 V, 20,4 V en 40,8 V. De eindwaarde van ieder 
bereik levert FFh (255d). De verzwakker wordt ingesteld met Out0 res- 
pectievelijk Out1. Door de keuze van de verzwakkerwaarden wordt (over- 
bodig) rekenwerk voorkomen. 

De rest van de schakeling dient voor de instelling en handhaving van de 
ontlaadstroom. Op uitgang Servo1 staat een PWM-signaal dat door R9 
en C4 wordt gefilterd en aan de gate van de power-MOSFET (T4) wordt 
toegevoerd. 

In de source-aansluiting zijn de stroomsensor weerstanden R13-R16 op- 
genomen. De spanning hierover wordt door IC2 versterkt en via Input1 op 
K5 naar Chip gevoerd. Als versterker is een op-amp gebruikt waarvan de 
uitgangsspanningszwaai tot de voedingsspanningen reikt. Met P1 wordt 
de versterking ingesteld en met P2 de offsetcompensatie. 


118 


Chip, een zelfbouw computertje 9 - Chip als accutester 


LP2950CZ5.0 


T3 


= в5170 


R13...R16 
12 


Figuur 9-1: Het schema van de accu ontlader. 
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Voor de regeling van de PWM-werkslag wordt een variabele gebruikt, 
waaraan we kunnen zien of de stroom stabiel is. Het is namelijk mogelijk, 
dat de MOSFET niet in staat is om de vereiste stroom te leveren als de 


spanning lager is 1 V. De stroomvariabele “gaat dan door nul” en dit wordt 
dan gemeld. 
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Tussen de drain en de source van de MOSFET bevindt zich een anti- 
parallel geschakelde bodydiode. Als een accu per abuis verkeerd om 
wordt aangesloten, brandt zekering F1 door en blijft de schade beperkt. 
Zaak is wel om een snelle zekering te gebruiken. 


Bouw van de print 

De print layout en onderdelenopstelling van de ontlader zijn in figuur 9-2 
en 9-3 te zien. Ook nu is de print niet op ware grootte afgedrukt. Ga weer 
naar www.vego.nl/chip en open 09_02.tif in bijvoorbeeld PaintShop. Print 
het ontwerp af met als afmetingen 70 x 26 mri op transparante folie. 


ov «12V 


Figuur 9-3: De componentenopstelling van de accutester. 
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De bouw van het printje wijst zichzelf, voor alle connectors zijn male print- 
headers gebruikt, behalve voor K3 dat een printkroonsteen is en voor de 
stroomvoerende aansluitingen waarvoor printpennen van 1,3 mm zijn ge- 
bruikt. Voor opname van de zekering dienen twee metalen houdertjes. 
Voor IC2 is een voetje gebruikt. Weerstanden R13-R16 zijn 4 mm boven 
de print gemonteerd in verband met warmte-afvoer. 

Op de printbanen +ACCU, -ACCU, D en S zijn soldeerrupsen gelegd om 
de weerstand te verminderen. 


Het eindresultaat 
In figuur 9-4 is het prototype van de print te zien. 


Figuur 9-4: Het prototype van de print. 


Montage in een behuizing 

De belangrijkste werkzaamheden voor de samenbouw betreffen de aan- 
passingen aan het Teko-kastje. De foto's in de figuren 9-5 en 9-6 geven 
een goed beeld van de opstellingen van de componenten in het kastje en 
de uitvoering van het frontplaatje. Voor een goed resultaat is passen, me- 
ten en secuur aftekenen van essentieel belang. 

Zoals uit de foto blijkt is het uiterlijk van de NiCad-ontlader eenvoudig en 
overzichtelijk. Voor de invoer van de gegevens is een toetsenbordje aan- 
wezig met 12 toetsen. Alle informatie verschijnt op het 16-karakter LCD. 
De accu wordt aangesloten op de twee instrumentklemmen, een zwarte 
en een rode. Verder zijn nog twee schuifschakelaars aanwezig, een voor 
aan/uit, op de ander komen we nog terug. 

De ontlader kan prima als stand-alone apparaat werken, maar zoals zal 
blijken is gebruik van een PC in sommige gevallen onontbeerlijk. Daar- 
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voor is in de linker zijkant een negenpolige connector opgenomen, die kan 
worden verbonden met de seriële poort van de PC. 

In de achterwand komt een grote opening voor de luchtdoorlaat van de 
ventilator en in de voorkant zitten acht gaten van 14 mm voor de inlaat van 
de koellucht. Wijs geworden door een mislukte poging met een metaal- 
boor, hebben we dat gedaan met een langzaam draaiende houtboor, 
waarvan de snijkanten eerst zijn *ontscherpt" om te zorgen dat ze niet 
“happen”. 


Figuur 9-5: De accutester ingebouwd in een mooie behuizing. 


Chip is op een aluminiumplaatje van 1,5 mm gemonteerd, met dezelfde 
afmetingen als de print, op afstandbussen van 5 mm. We hebben boutjes 
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met verzonken kop gebruikt zodat aan de onderzijde van het metalen 
plaatje geen uitsteeksels zijn. 

Het maken van de opening voor de RS232-connector in de linker zijkant 
lijkt moeilijker dan het is. Van een boutje, dat in de schroefmoer van de 
RS232-connector past, is de kop afgezaagd en in een sneldraaiende 
boormachine is er een punt aangevijld. Het boutje is in de connector ge- 
schroefd en de aluminium grondplaat, met daarop de print, is op de bo- 
dem van het kastje gezet en stevig tegen de zijkant gedrukt. De scherpe 
punt maakt een putje in het plastic. Van binnenuit is met een boortje 
van 1 mm een gaatje geboord, dat vervolgens van buitenaf met 3 mm is 
opgeboord. Het “puntboutje” wordt nu in de andere connectorkant ge- 
schroefd. Door het gemaakte gat zetten we met een boutje de print "los- 
vast”, zorgen dat hij goed recht staat, en oefenen opnieuw druk uit. Ook dit 
putje wordt eerst van binnenuit geboord en dan van buiten met 3 mm op- 
geboord. Het aftekenen van de grote opening voor de RS232-connectoris 
met een “bracket” (metalen bevestigingsdeel) van een PC-insteekkaart 
gedaan. De print zit op drie punten vast, twee boutjes bij de RS232 con- 
nector en aan de andere kant is het aluminium plaatje met een boutje 
vastgezet op de bodem van het kastje. 


Figuur 9-6: Een inkijk in de behuizing van de accutester. 
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Verbindingen 

De NiCad-ontlader is nu bijna klaar, wat nog rest is het maken van enkele 
verbindingen. Een overzicht van het volledig systeem is getekend in figuur 
9-7. Het snoer van de netvoeding komt in K3 (let op de polariteit!). Aan de 
power-MOSFET solderen we drie draden (neem voor de drain- en source- 
aansluitingen zwaarder snoer) met aan de andere kant drie schuifbussen, 
deze komen op de aansluitingen voor T4. Ook van zwaarder snoer maken 
we de verbindingen tussen de apparaatklemmen met soldeerlippen en 
+accu en -accu op de ontlaadprint met schuifbussen. Voor alle andere 
verbindingen worden connectors gebruikt, die worden gezaagd van een 
female printheader strip. Aan het K6-snoertje komen aan de andere kant 
twee soldeerlippen die (met de andere soldeerlippen) op de apparaat- 
klemmen worden vastgeschroefd. De ventilator komt op K2 en de stekker 
van het voedingssnoertje (is een Futaba servosnoertje) van Chip op K1. 
Voor de verbinding van K5 met Input 1 van Chip gebruiken we een 
3-aderig snoertje met aan beide kanten een 3-polige female header. Via 
dit snoertje lopen ook de +5 V en 0 V verbindingen. Op K4 komt een 
5-polige female header met 5 individuele snoertjes, ieder met aan de an- 
dere kant een 1-polige female header. Deze worden verbonden met res- 
pectievelijk Out 2, Input 2, Out 1, Out 0 en PWM (servo 1). Zo worden 
aardlussen voorkomen. 

Het laatste snoertje dat nodig is, verbindt K5 op Chip met de schuifscha- 
kelaar “Chip-Auto” op het bedieningspaneel. 


Bediening van de accutester 

De bediening van de ontlader is eenvoudig en consequent. Als het appa- 
raat aanstaat, maar niet ontlaadt, staat “NC Discharger” op het LCD. 
Door op de * te drukken verschijnt keuzemenu 1, drukt men de toets nog- 
maals in, keuzemenu 2, enz. Er zijn in totaal zes keuzemenu's. De # is de 
bevestigingstoets, vergelijkbaar met de Entertoets van een PC-keyboard. 
Als door een of meer keren indrukken van de * het gewenste keuzemenu 
is bereikt, wordt dit geactiveerd door de # in te drukken. Als dit een menu 
is, waar gegevens kunnen worden ingevoerd en de # blijft ingedrukt, dan 
verschijnen de ingestelde gegevens op het LCD. Na loslaten van de # ver- 
schijnen vraagtekens en kunnen nieuwe gegevens worden ingevoerd via 
het decimale invoerveld van het keyboard. De invoer moet worden beves- 
tigd door op de # te drukken. 

Tijdens de bediening loopt op de achtergrond een time-out procedure. Bij 
een bedieningsfout, of als een ingestelde waarde alleen afgelezen wordt, 
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Figuur 9-7: De bedrading tussen de diverse groepen van de accu 
ontlader. 
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hoeft verder niets te worden gedaan, automatisch verschijnt na enkele se- 
conden “NC Discharger” weer op het LCD. 


De menu’s 

Er zijn zes keuzemenu's, we zullen ze kort behandelen omdat dan in één 
moeite door de mogelijkheden (en onmogelijkheden) van de ontlader dui- 
delijk worden. De “Set”-menu's dienen voor de invoer van gegevens en 
gedragen zich vrijwel identiek, de overige menus zijn schakelmenus. 


Set loadcurrent? 
Als nu de # wordt ingedrukt en vastgehouden, verschijnt de ingestelde 
ontlaadstroom op het display. Zodra de toets wordt losgelaten verschijnt 


ingevoerd. Als men de waarde niet wil veranderen, dan kan men even 
wachten of de # indrukken (ter bevestiging) waarna op het display “! not 
accepted !” verschijnt en vrijwel direct naar de keuzemenu invoer wordt 
teruggekeerd. De minimale stroom is 100 mA, de maximale 2.500 mA. De 
instelling gaat in stappen van 10 mA. Als de eenhedenwaarde kleiner is 
dan 5, wordt de stroomwaarde naar beneden afgerond, bij 5 of hoger 
wordt de stroomwaarde naar boven afgerond. 


Set nr of cells? 
Hier kan het aantal cellen, waaruit het accupakket bestaat, worden inge- 
voerd. Dit aantal is minimaal 1 en maximaal 20. 


Set volts/cell? 

Deze keuze dient om de spanning op te geven, waarbij een cel ontladen 
is. De waarde mag liggen tussen 0,5 V en 2,5 V. Voor NiCad's die worden 
ontladen met een stroom kleiner dan 0,5 C is 1,1 V een goede afslagwaar- 
de, bij hogere ontlaadstromen kan 1 V of 0,9 V worden gekozen in ver- 
band met de spanningsvalten gevolge van de inwendige weerstand. Door 
het ruime spanningsbereik kunnen ook loodaccus worden ontladen. 


Start discharge? 

Na bevestiging met de # wordt getest of de spanning van de accu hoger is 
dan de afslagwaarde (= aantal cellen x spanning/cel). Als dat het geval is, 
wordt het ontlaadproces gestart. Eerst wordt het samplinggeheugen 
(“Clearing memory!”) gewist, vervolgens wordt de stroom tot de inge- 
stelde waarde verhoogd (“Setting Current!"). Als deze waarde is bereikt, 
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wordt de ventilator aangezet en de tijd op nul gezet. Tijdens het ontladen 
worden afwisselend de tijd (“Time: 00h 00m 00s”) en de ontladen capa- 
citeit (“Unload: 0000 mAh") op het display getoond, ieder steeds gedu- 
rende twee seconden, zodat men de seconden kan zien verspringen. 
Tijdens het ontlaadproces blijven de keuzemenu's actief, met dien ver- 
stande dat men de ingestelde waarden kan zien, maar niet kan verande- 
ren. 

Het ontlaadproces gaat door tot de ingestelde spanning is bereikt of … 


Stop discharge? 
Hiermee kan het ontlaadproces voortijdig worden beëindigd. 


See last result? 

Als het ontlaadproces is beëindigd, worden afwisselend de ontlaadtijd en 
de gemeten capaciteit op het LCD getoond en worden geluidssignalen ge- 
geven. Als echter op een toets wordt gedrukt, verschijnt *NiCad Dischar- 
ger” op het display en verdwijnt het resultaat van de meting. Dit keuze- 
menu laat het resultaat van de laatste meting weer op het LCD zien. 


Software 

De NiCad-ontlader kan op twee manieren werken: de commandoproces- 
sor van Chip kan actief zijn of een programma kan draaien. Om met het 
apparaat te communiceren of om programma's te laden moet Chip- 
term.exe op de PC draaien en de ontlader met de seriële poort zijn ver- 
bonden. De schakelaar “Chip-Auto” op de ontlader wordt op Chip gezet en 
de ontlader wordt aangezet. Nu kan een programma worden geladen door 
AltH in te drukken. Onderin het scherm wordt naar de naam van het pro- 
gramma gevraagd. Het achtervoegsel is altijd .hex. Na bevestiging met 
Enter wordt het programma geladen. Door het programma Keytest.asm 
(listing 3-6) te assembleren en te laden kan het keyboard worden getest. 
Het programma kan worden gestart met het commando chip of door de 
Chip-Auto schakelaar op Auto te zetten en de ontlader aan te zetten. 


Verzwakker testen 

De verzwakker kan worden getest met het programma Divitest.asm, zie 
listing 9-1. Op de apparaatklemmen zetten we een spanning van 5 Vdc. 
De waarde op het display moet 125 bedragen (5/10,2 x 255) en de ver- 
zwakking 2. Bij een ingangsspanning van 15 Vdc moet de waarde 188 be- 
dragen en de verzwakking 4. 
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Listing 9.1: Divitest.asm 
support program for NiCad discharger to test voltage divider 


; measure NC-voltage, set divider if necessary and show divider 
setting and 
analog voltage once a second on the LCD display. 
use output flag f, which is set every second by the operating 
system. 


ncdivts p = ncdivt2 ; point p to display text 
ld O,f load initial display 
p - a-stack ; point p to a-stack 

nedivt1 call getvsub call get voltage sub 
skip out f = 0 wait for f to be set 
call showsub ; £ is set, call showsub 
jp nedivt1 ; and loop 

ncdivt2 asciz "Att :2, Val- ???" 


getvsub res out 0 reset divider 0 
res out 1 ; reset divider 1 
vi = 32 ; vl = divider setting 2 
call voltsub ; get voltage into v0 
skip wo = ££ Skip if reached max voltage 
ret not max, return 
set out 0 ; set divider 0 
vl - 34 ; vl - divider setting 4 
call voltsub ; get voltage into v0 
skip vO = ff ; skip if reached max voltage 
ret ; not max, return 
res out 0 ; reset divider 0 
set out 1 ; set divider 1 
vi - 38 ; vl - divider setting 8 
call voltsub ; get voltage into v0 


voltsub ana 2 


showsub res out f; reset seconds flag 
v2 - 02 
v2 to tone ; give short beep 
у1,у1 to mp ; copy divider setting to mp 
за 5,5 ; show divider setting 
v0 to 3 dec mp ; convert v0 into 3 dec chars 
1а d,f ; show 3 dec chars on display 
ret ; and return 


Listing 9-1: Het programma Divitest.asm waarmee u de verzwakker kunt 
testen. 
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Tot slot 25 Vdc, de waarde moet 156 zijn en de verzwakking 8. De geme- 
ten waarden mogen 2 of 3 eenheden afwijken, maar als dat meer is, en de 
delerweerstanden zijn juist, dan is waarschijnlijk T2 of T3 lek. 


Accutest.asm 

Als de tests met succes zijn afgerond, kan het programma Accutest.asm, 
zie listing 9-2, worden geassembleerd en geladen. Hiermee is de 
NiCad-ontlader gebruiksklaar op afregeling van de stroom na. Sluit een 
accupakket op de ontlader aan, met in serie een stroommeter. Stel het 
aantal cellen in, de spanning per cel en de stroom op 2.500 mA. Regel met 
P1 de stroom op 2.500 mA. Stel nu de stroom in op 100 mA en regel met 
P2 de stroom op deze waarde af. Door de regellus fluctueert de aflezing, 
regel daarom af op een zo goed mogelijk gemiddelde. 


; Listing 9.2: Accutest.asm 
; Chips NiCad discharger and capacity measurer 


keyboard 

unload current 

NiCad voltage from divider 

set divider :4 

set divider :8 

cooling fan 

toggle for checking with scope 

increasing current to set value flag 
= see last result flag 
= current motorboat flag 
run flag 
error flag 
enter selected routine after key up flag 
wait-on flag 
key down flag 
select flag 

is set every second by the operating system 
= general purpose variables, used by selecting system 
= during run time used by selecting system to show 

; set values 
; v3-v5 = used for reading hours, minutes, seconds of the 
; real time clock 
; v6 mAh counter 0 
; vi mAh counter 1 
; v8 = current/second adding register 0 
$ v9 current/second adding register 1 
; va current set in mA * 10 
; vb pwm value 
t we voltage set 
; vd seconds sequencer 
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ve = selector 
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vf is carry/borrow/overflow flag + general purpose 


artimer (pwm-timer) register adressen, port b data register 


; and some other 
drb е 8с1 
arsci 8d7 
arrc 8d9 
arcp 8da 
armc 8d5 
clkhrs 8ac 
spoint1 8b5 


initvar 
vd,ve = mp 
set out 4 
Skip out 9 - 0 
call cadjust 
res out 4 
Skip out d 
јр keydown 
Skip out e 
jp selecti 
skip ve <> 
jp main 3 


jp getkeyn 


skip ve <> 
jp setcurl 
skip ve <> 
jp setnum1 
skip ve <> 
jp setvoll 
vO = key 0 
skip vO <> 
jp select0 
Skip out f 
jp main 0 


port b data register 

ar status control register 1 
ar reload register 

ar compare register 

ar mode control register 

real time clock hours register 
saved pointer high byte 


initialise vd...ve 

set out 4 for checking with scoop 
skip if discharger not running 

call current adjust 

reset out 4 for checking with scoop 
Skip if .not. key down 

key beeing pressed, jump to keydown 
Skip if .not. select active 

select active, jump to select 

Skip if ve .not. active (- ff) 
select .not. active, jump to 
continu main loop 

select is active, try to get a 

key value 

jump according to selector value ve 


get a key value 

skip if .not. 3a (= *) 

got a key value За, jump to select0 
skip if on the seconds flag 

no seconds flag, loop to main 0 


distribution in time (every second) 


seconds res out f 
skip out 9 
jp intrmsg 
Skip out 6 


jp inccurr 
Skip out 8 


jp boating 
v0 - ana 2 


reset seconds flag 

Skip if discharger is running 

not running, jump to intro message 
skip if current is increasing 
towards set value 

jump to check if current has 
increased 

Skip if current is stable 

current is motor boating, jump 

v0 is Nicad voltage 
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second0 


second1 


second4 
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vf = sectimer 
skip vf <> 00 
call logtime 
v0 - vc 


skip vf - 00 
jp ncready 
call addcurr 
skip vf <> 00 
jp ѕесопао 
v6 + O1 

skip v6 — 64 
јр second0 
v6 - 00 

v7 + 01 

vd + 01 

Skip vd - 01 
jp ѕесопа1 
call elapsed 


jp main O 
skip vd = 02 
jp second2 
call elapsel 


jp main 0 
Skip vd - 03 
jp second3 
call showmah 
jp main 0 
skip vd - 04 
jp second4 
call showmal 


skip out 7 = 
vd = 00 

jp main 0 
vf = 14 

vf to Lone 
p = slrtExt 
ld d 

vd - 00 

jp main 0 


skip out a 
јр intrms1 
skip out 7 
jp secondo 
= titltxt 
id 0,£ 
jp main 0 
vO = timer 


Chip, een zelfbouw computertje 


get seconds timer 

skip if still running 

zero, time to take log sample 
if v0 < vc (= voltage set) then 


; vf = 01 


Skip if vNiCad »- vset 

equal or smaller, jump 

add mAs to current adding registers 
skip if 1 mAh is reached 


; not yet, jump to continu 


add 1 mAh to mAh counter 0 
Skip if not yet reached 100d 


load mAh counter 0 with 00 


; mAh counter 1 + 1 


increment seconds sequencer 


load template and show elapsed 
time on display 


show elapsed time, without loading 
template 


load template and show unloaded mAh 


show unloaded mAh, without loading 
template 


; give a short beep 


; point to see last result display 
load display 
set sequencer to 00 


Skip if error flag is not set 


; error flag is set, jump 


Skip see last result flag not set 
show last result 
display title and go back 


; get timer 
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skip v0 <> 00 skip if .not. 00 
res out a time out, reset error flag 
jp main 0 and go back 


inccurr vO = ana 1 vO = current voltage 

vi = 06 lower limit of current voltage 

skip v0 > v1 skip if current voltage > Lower 
limit 

jp main 0 

res out 6 reset setting current flag 

set out 2 start cooling fan 

p - nulline point to line with "00" bytes 

v3,v9 = mp load into v3...v9 (v6...v9 = mAh 
registers) 

p = clkhrs point to real time clock hours 
register 

v3,v5 to mp and set all clock registers to zero 

v3 to sectimer set sectimer to 00 

jp main 0 


boating p = curmtxt 
ld O,f 
v3 - 04 
v3 to tone 
jp main O 


ncready v0 + vc v0 is Nicad voltage - vc, add vc to 

restore voltage 

call logtime write it at the end of logging 
memory space 

p = saveres point to save result storage 

v3,v7 to mp save result in storage (- elapsed 
time and mAh) 

son start ar-timer in servo mode.. 

soff ..and stop ar-timer 

res out stop cooling fan 

res out 9 reset run flag 

res out 6 in case battery got flat while 
current was settling 

set out 7 set see last result flag 

vf = 80 

vf to tone give beep 

jp main 0 


keydown, jump routine Lo wait for key release or time out 


keydown v0 = key 0 v0 is key value 
skip vO = 3f skip if no key pressed 
jp keydwn2 jump, key still beeing pressed 
res out d key has been released, reset key 
down 
skip out 9 = 1 skip if running 
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jp keydwnl 
Skip out b - 0 


jp keydwn3 
Skip out b 
jp main 2 


jp main 0 
v0 = timer 
skip v0 = 00 
jp main 0 
v0 = 02 
v0 to tone 
keydwn3 res out b 
res out c 
res out e 
ve = ff 
jp main 0 
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; not running, jump to continu 


running, if out b is 1, we must 


; quit 


jump to quit 


if out b - 1, enter selected 
routine after key up 
else get a key value in via main 0 


; get time out value 


time still running, jump to main 0 
give a sound signal 

while key beeing pressed 

reset select key up flag 

reset wait on flag 


; reset select flag 


set selector ve to off 


; and loop to main 0 


getkeyn, jump routine to get a numerical key value for passing 


to selected 


jump routine main 2 according to selector ve 


i 

getkeyn vO = key 0 
skip v0 = 3f 
jp getkey2 

getkeyl vO = timer 
skip v0 = 00 
jp main 0 


ve = ff 
јр main 0 
getkey2 skip v0 <> 3a 

јр getkey1 
set out d 

vi 

vi 

vi 

vi 

jp 


; get a key value into v0 


skip if no key pressed 
jump, got value 


; get time out value 


Skip on time out 

not yet time out, jump to try to 
get good value 

set selector ve to off 

and continue main task 

skip if key .not. "** 


got key value, set key down 


give key beep 

circa 5 seconds 

set time out value 

jump to selected set routine in 
main 2 


jump routine to make a choice out of rotating menus 


v0 = 02 

v0 to tone 

p = sel?txt 

ld £,£ 
selctxt 


ld 0,e 
ve - 00 


give a key beep 

display the ? 

at position f 

set p to the first of the 
selections 

load chars 0-e 


; preset the selector to 00 
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set out e set selection to active 
set out d set key down to active 
res out 7 reset see last result flag 
v0 = 5с 
vO to timer load time out value 
jp main 0 jump back to main 0 
Skip out e - 0 entry point for rotate selections 
jp select2 jump if time out value already 
loaded 
v0 = 5c out c = 0, load time out value 
v0 to timer 
set out c and set out c 
select2 v0 = key 0 get a key value 
skip vO <> 3a 
jp select3 jump to select3 if key 
value = 3a (*) 
skip v0 <> 3b 
jp select4 jump to select4 if key 
value = 3b (#) 
v0 = timer get time out value 
skip vO = 00 skip if time is out 
jp main O not yet, keep trying to get 
3a or 3b 
res out e time is out, reset selector 
(no more active) 
res out c reset wait on 
jp main O and loop to perform main tasks 
Select? v0 = 02 got key value 3a (*) 
v0 to tone give key beep 
skip ve <> 50 skip if .not. last selector value 
ve = £0 yes, last, preset to ГО 
ve * 10 add 10 to selector value 
(last will become 00) 
p = selctxt set pointer to first selection text 
р + ve add selector offset to p 
ld 0,e and put text on display 
res out c reset wait on flag 
set out d set keydown flag 
v0 = 5с 
v0 to timer load time out value 
jp main 0 loop to cycle through selection 
while .not. time out 
select4 vô = 02 got a key value 3b (#) 
v0 Lo Lone give key beep 
res out c reset wait on 
res out e reset selector flag (disable jump 
to select) 
set out d set key down flag 
v0 = 8c 5 seconds 
v0 to timer set time-out value 
skip ve <> 00 and jump to entry point of set 
routines 


9 - Chip als accutester Chip, een zelfbouw computertje 


jp setcurr ; according to selector value ve 
Skip ve «» 10 

jp setnumb 

Skip ve «» 20 

jp setvolt 

Skip ve «» 30 

jp setstrt 

Skip ve «» 40 

jp setstop 

Skip ve «» 50 

jp setseel 

break this point must never be reached 


setcurr, jump routine to set current 


setcurr p = currtxt entry point from select routine 
ta OE point p to text, put on display 
p = savecur point to saved current byte 
v2,v2 = mp get byte into v2 
p - a-stack ; load display 
v2 to 3 dec mp convert current to 3 decimals 
ld 9,b load display 
set out b set out b for entry after key 
release 
jp main D jump to main 0 to perform other 
tasks 
setcurl skip out b = 1 entry point from keydown and 
main routine 
jp setcur2 if not entry after key release 
then jump 
res out b entry after key release, reset flag 
p = queline point to question marks 
ld 9,c load display 
p = zerline point to ascii zero's (30) 
v2,v5 - mp v2... - 30 
p = inpline point to input line 
v2,v5 to mp clear input line (make them all 
zero's) 
jp main 0 jump to main 0 to perform other 
tasks 
setcur2 Skip vO <> 3b skip if key <> "I" 
jp setcur3 jump to check received key values 
v3 to v2 shift received key strokes 
v4 to v3 
v5 to v4 
v0 to v5 
v2,v5 to mp copy v2...v5 into input line 
id aie show on display 
jp main 0 jump to main 0 to perform other 
tasks 
setcur3 vd - reset seconds sequencer 
ve - ff set selector ve to off 
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setnumb, 


setnumb 


setnuml 


setnum2 


p = a-stack ; point to a-stack 

v2,v4 to mp ; and save received keystrokes 
except the last 

call chek250 ; check if value < 250d 

skip vf = 00 

jp notaccp ; v£ = 01, value > 250, jump to not 
accepted 

v0 - 3dec mp convert to byte, use vO 

vO + £6 add f6 to check if v0 >= 0a 

skip vf <> 00 ; if vf <> 00, then v0 >= 0a 

jp notaccp ; jump to not accepted 

v0 + 0а ; restore v0 

v5 + ch ; check if last number >= 
(ascii 35) 

skip vf = 00 ; Skip if not 

vO + 01 ; yes, increment current by 01 

p = savecur ; point to storing place for current 

; byte 
v0,v0 to mp ; save current 
jp main 0 ; jump to main task 


jump routine to set number of cells 


p - numbtxt ; entry point from select routine 

la 0,£ ; point p to text, put on display 

p = savenum ; point p to current byte 

v2,v2 = mp ; v2 = current byte 

p = a-stack ; load display 

v2 to 3 dec mp ; convert current to 3 decimals 

pti ; point to tens 

ld ef ; load display 

set out b ; set out b for entry after key 
; release 

jp main 0 ; jump to main 0 to perform other 

tasks 

skip out b - 1 ; entry point from keydown and main 
; routine 

jp setnum2 ; if not entry after key release then 
; jump 

res out b ; entry after key release, reset flag 

p = queline ; point to question marks 

ld e,f ; load display 

p = zerline ; point to zero's (30) 

v2,v5 - mp ; v2...v5 = 30 

p = inpline ; point to input line 

v2,v5 to mp ; clear input line (all zero's) 

pti 

jp main 0 ; jump to main 0 to perform other 

tasks 

skip vO <> 3b ; Skip if key <> "4" 

jp setnum3 ; jump to check received key values 

v4 to v3 ; shift received key strokes 
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copy v3...v4 into input line 
show on display 
jump to main 0 to perform other 
tasks 
setnum3 reset seconds sequencer 
; set selector ve to off 
inpline point to start of inputline 
v2,v4 = mp get 3 numbers (first = 30) 
p = a-stack 7 point to a-stack 
v2,v4 to mp ; put them on a-stack 
v0 = 3dec mp convert to byte, use v0 
skip v0 <> 00 ; minimum cell number = 1 
jp notaccp 
v0 + eb ; add eb to check if vO > 14 (20d) 
skip vf ; if vf <> 00, then v0 > 14 
jp notaccp 
vO + 15 


restore vO 

p - savenum point to savenum 

v0,v0 to mp copy value into savenum 
jp main O0 ; jump to main task 


; setvolt, jump routine to set cell voltage 


entry point from select routine 
point p to text, put on display 
p = savevol point to saved voltage byte 
у2,у2 = mp get byte into v2 
p - a-stack load display 
v2 to 3 dec mp convert voltage to 3 decimals 
1d b,b load units 
pti 
1d d,d load tenths 
set out b set out b for entry after key 
release 
je main 0 jump to main 0 to perform other 
tasks 
setvoll skip out b = 1 entry point from keydown and main 
routine 
if not entry after key release then 
jump 
res out b entry after key release, reset flag 
p = queline ; point to question marks 
ld b,b 
ld d,d ; load display 
p - zerline ; point to zero's (30) 
v2,v5 = mp з WAS = 30 
p = inpline ; point to input line 
v2,v5 to mp ; clear input line (all zero's) 
jp main 0 ; jump Lo main 0 to perform other 
tasks 
setvol2 Skip v0 «» 3b ; Skip if key <> “Ф” 


setvolt p = volttxt 
1а 0,f 


jp setvol2 


138 


Chip, een zelfbouw computertje 9 - Chip als accutester 


jp setvol3 ; jump to check received key values 
v3 to v2 shift received key strokes 
v0 to v3 
v2,v4 to mp copy v2...v4 into input line 
ld b,b put units on display 
pil point to tenths 
ld d,d ; load tenths 
p = inpline point to begin of input line 
jp main 0 jump to main 0 to perform other 
tasks 
reseL seconds sequencer 
set selector ve to off 
p = a-stack ; point to a-stack 
v2,v4 to mp ; and save received keystrokes 
call chek250 ; check if value « 250d 
Skip vf - 00 
jp notaccp ; vf - 01, value » 250d 
vO = 3dec mp convert to byte, use v0 
vO + ce add cd to check if v0 >= 32h 
; (0,50 v) 
Skip vf <> 00 ; if vf = 01, then vO > 32 
jp notaccp 
vO + 32 ; restore v0 
p = savevol ; point to storing place for voltage 
v0,v0 to mp 7 save voltage 
jp main 0 ; jump to main task 


setstrt, jump routine to start discharger 


setstrt vd - 00 reset seconds sequencer 
ve - ff set selector to off 
Skip out 9 - 0 Skip if .not. running 
jp main D ; running, jump back 
call vcalcul calculate discharge voltage and 
set dividers 
vO = ana 2 v0 - NiCad voltage 
skip v0 > vc ; skip if V-Nicad > voltage set 
jp flatpac ; jump to display empty or not 
; connected 
P - savecur ; point to saved current 
va,va - mp ; load into va 
call clrmemo ; call clear log memory space 
p = logstrt ; point to start of logging memory 
save p ; ...and save pointer 
vb - 01 ; sel pwm value to 01 
call arstart ; start pwm-timer 
res out 8 ; reset motor boating current flag 
set out 9 ; set run flag 
set out 6 ; set increase current flag 
p - incctxt ; point to setting current text 
1а 0,£ ; show Lext on lcd 
jp main 0 
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setstop, jump routine to stop start discharger 


setstop skip out 9 = 1 skip if discharger is running 
jp notrunn if not, display not running text 
son use son and soff to stop pwm-timer 
soff 
vd = 00 ; reset seconds sequencer 
ve = ff ; set selector to off 
res ; in case battery went suddenly flat 
res ; reset motor boating current flag 
res ; reset run flag 
res out ; Stop cooling fan 

jp uhalted ; jump to display message and beep 


setseel, jump routine to see last result on display when not 
running 


setseel vd = 00 reset seconds sequencer 
ve = ff ; reset selector 
skip out 9 = 0 ; skip if .not. running 
jp main 0 ; running, do nothing, jump back 
p = saveres ; point to saved result 
v3,v7 - mp ; load into v3...v7 
set out 7 ; set see last result flag 
jp main 0 


notrunn p = notrtxt ; point to not running text 
skip a ; (skip a - skip always) 
notaccp p = notatxt point to not accepted text 
skip a 
flatpac р = Elattxt point to flat pack text 
skip a 
uhalted p = halttxt point to halted by user text 
set out a set error flag 
1а show error text 
vo beeptime 
vO 
v1 display error message time 
v1 to timer 
jp main 0 


; chek250, subroutine to check if v2 (hundreds), v3 (tens), 
; v4 (units) » 250 
; if yes, vf - 01. Remember these are ascii values 


chek250 v2 + cd hundreds + cd 
skip vf = 00 skip if hundreds <= 32 
ret hundreds » 32, return vf 
skip v2 skip if hundreds was 32 
ret hundreds « 32, return vf 
v3 + ca tens + ca 
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skip vf skip if tens <= 35 
ret tens > 35, return vf 
Skip v3 Skip if tens was 35 
ret tens « 35, return vf 
v4 * cf units + cf 

ret if units » 0 then vf 


arstart, subroutine to start artimer in pwm mode 


arstart p - pwminit point to pwm initialize values 

v3,v8 - mp load into v3...v8 

p - armc point to ar mode control register 

v3,v3 to mp stop artimer, it could be running 

p - drb ; point to port b dataregister 

v3,v3 = mp v3 = port b data register 

v4 or v3 ; we don’t want to change the 
outputs, so we .or. 

v4,v4 to mp ; select servo 1 (112? ????b) 

p = arscl point to artimer status control 
register 1 

v5,v5 to load predivider ratio (00h = 

р = arrc point to аг reload register 

v6,v6 to load reload value (00h) 

p = arcp point to ar compare register 

v7,v7 to load ar compare value (ffh) 

p - armc point Lo ar mode control register 

v8,v8 to mp start pwm generaLion 

ret 

bytes 00c00000ffe0 


check discharge current and adjust if necessary 


v0 = апа 1 get current voltage 
Skip vO <> va Skip if current measured «» cset 
ret 
Skip v0 > va Skip if measured » cset 
jp cadjus1 jp if measured < cset 
vb + £f decrease pwm-value 
Skip a 
cadjus1 vb + 01 increase pwm-value 
skip vb <> 00 skip if vb .not. 00 
set out 8 vb - 00, current is motorboating, 
set error flag 8 
vO = ff ; vO = xor value 1 
v0 xor vb vb - pwm-value, invert by .xor. 
p - arcp point to ar compare register and.. 
v0,v0 to mp load v0 into ar compare 
ret 


vcalcul, calculate voltage end value from number of cells and 
voltage/cell 
if necessary set appropiate divider. If no divider or divider 
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1 is set and 
the culculated value > a0 then value = value/2, next higher 
divider is set. 

; load value into vc (voltage set) 


vcalcul res out 0 ; reset divider :4 
res out 1 ; reset divider :8 
p - savenum ; point to saved number of cells 
v3,v3 - mp load into v3 
p = savevol point to saved voltage/cell 
v4,v4 - mp ; load into v4 
p = a-stack 
v3 * v4 to mp ; multiply number of cells by 

; voltage/cell 

v5 - 04 ; v5 - dividing factor 1 
vc - mp/v5 
Skip vf «» 00 ; Skip on overflow 
jp vcalcul ; jump, result fits 
v5 = 08 ; v5 - dividing factor 2 
vc = mp/v5 
Skip vf «» ; Skip on overflow 
jp vcalcu2 jump, result fits 
v5 - 10 v5 - dividing factor 3 
vc - mp/v5 
set out 1 set divider to :8 
v9 - 08 divider setting - 08 
ret 

vcalcul v9 = 02 ; divider setting - 02 
v3 - a0 ; result 1 fits, test if » a0 
skip vc » v3 
ret 
v3 - 01 ; result 1 » a0 
vc * v3 to mp ; multiply vc by 01, to put it 

; on mp 


v3 02 
vc - mp/v3 ; divide value by 02 
set out 0 set divider to :4 

; divider setting = 04 


vcalcu2 ; set divider to :4 
; divider setting - 04 
result 2 fits, test if > a0 


result 2 » a0 
; multiply vc by 01, to put it 
on mp 


mp/v3 ; divide value by 02 
res out 0 ; res divider :4 
set out 1 ; set divider to :8 
v9 - 08 ; divider setting - 08 
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ret 
elapsed, show elapsed discharge time on display 


elapsed p elaptxt ; point to initial elapsed time 
; display 
1а 0,£ put on display 
elapsel p = clkhrs ; point to clock hours 
skip out 7 = 1 ; skip if see last result flag = 1 
v3,v5 = mp ; load hours, minutes, seconds into 
;POV3...v5 
p = a-stack point to a-stack 
v3 to 3dec mp convert v3, v4 and v5 into decimals 
pri ; and show them on display 
ld 5,6 
p = a-stack 
v4 to 3dec mp 
р+1 
ld 9,a 
p - a-stack 
v5 to 3 dec mp 
р + 1 
1а d‚e 
ret 


showmah, show unloaded mAh 


showmah p = smahtxt 
1а 0, 
showmal р = a-stack 
v7 to 3dec mp 
г. 
1а 8,9 
р = a-stack 
уб to Заес mp 
BE di 
ld a,b 
ret 


subroutine addcurr 
first: adding regs + current set 
then: adding regs + fe98h 
if there was a carry, we passed 168h (360d) border, the new 
value of the 
adding regs - adding regs - 168h, wich is right and vf 
(<>00) 
if there was no carry, we adjust the adding regs by adding 
0168h and 

; make vf = 00 


addcurr v8 * va ; add curset to adding reg 0 
skip vf - 00 ; Skip if no carry 
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carry, adjust adding reg 1 
add 98 to adding reg 0 
skip if no carry 
carry, adjust adding reg 1 
add fe to adding reg 1 
skip if no carry Lo adjust adding 
regs 

; overflow is new value, vf is 01, 
return 
adjust adding reg 0 by adding 68 
skip if no carry 
carry, adjust adding reg 1 
adjust adding reg 1 by adding 01 
be sure to make vf 00 for not yet 
1 mAh 


clrmemo, fill logging space with divider setting, current set 
and “00" bytes 


clrmemo p = clrmtxt ; point to clear memory text 
ld 0,97 ; load dislay 
p - diviset ; point to divider storage 
v9,va to mp ; save divider and current settings 
v0 = 00 ; vO = filling byte 
p = logstrt ; point to start of log memory 
clrmeml save p ; save pointer 
р = spoint1 point to saved pointer high byte 
vf,vf - mp vf - saved pointer high byte 
skip vf <> 08 Skip if not reached end 
ret 
rest p restore saved pointer 
v0,v0 to mp write filling byte 
Ex increment pointer 
jp clrmemi loop until ready 


logtime, reload sectimer, check memory space, if space then 
; write v0 


logtime wf = 3c 1 minute 
vf to sectimer reload seconds timer 
p = spointi point to saved pointer high byte 
vf,vf = mp ; УЁ = saved pointer high byte 
Skip vf «» 08 ; Skip if not reached end 
ret 
rest p ; restore saved pointer 
у0,у0 to mp ; write voltage byte 
pri ; increment pointer 
save p ; o... and save pointer 
ret 


bytes 00000000 
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zerline asciz "0000" 
queline asciz "????" 
nulline bytes 00000000000000 


bytes OOff ; vd = 00, ve = ff 

bytes 6400 ; initial current - 1000 mA 
bytes 0400 ; initial number of cells - 4 
bytes 6400 ; initial volts/cell - 1,00 
bytes 0000000000; saved result from v3...v7 


initvar 
savecur 
savenu 

savevol 
saveres 


titltxt 
selctxt 


sel?txt 
currtxt 
numbtxt 
volttxt 
notatxt 
flattxt 
elaptxt 
curmtxt 
smahtxt 
slrttxt 
halttxt 
notrtxt 
clrmtxt. 
incctxt 


asciz 
asciz 
asciz 
asciz 
asciz 
asciz 
asciz 
asciz 
asciz 
asciz 
asciz 
asciz 
asciz 
asciz 
asciz 
asciz 
asciz 
asciz 
asciz 
asciz 
asciz 


“NiCad Discharger” 
"Set loadcurrent" 

"Set nr of cells" 

"Set volts/cell" 

"Start discharge" 

"Stop discharge" 

"See last result" 

DER 

“Current: ?220 mA” 
"Number cells: ??" 
“Volt/cell: 2,7 М” 
"! not accepted !" 
ni open or flat !” 
"Tine h m s" 
"Current unstable" 
"Unload: mAh" 
"Ready see result" 
“thalted by user!” 
"Po*** idle *** |” 
"Clearing memory!" 
"Setting current!" 


; main title 


selector ve 

selector ve 

selector ve - 

selector ve - 

selector ve - 

selector ve = 

last of selection text 
current display 


; number of cells display 
; volts/cell display 
; not accepted display 


open or flat pack display 
elapsed time display 
motorboat current display 


; unloaded mAH display 


see last result display 
halted by user display 
idle display 

clear log memory display 
increasing current disp. 


org 600 
bytes 0000 
bytes 00 


; byte 1 - divider, 
; start of logging space, end - 7ff 


diviset byte 2 - current*10 


logstrt 


Listing 9-2: De listing van Accutest.asm. 


Maken van ontlaadspanningscurves 

Tijdens de ontlading wordt iedere minuut een spanningsmonsterin het ge- 
heugen opgeslagen. Daarvoor wordt het EEPROM-geheugen van 
600h-7FFh gebruikt. Op adres 600h staat de verzwakkerinstelling en op 
601h de stroomwaarde. Na het ontladen kunnen deze monsters in een 
bestand worden opgeslagen. Ga daarvoor naar de commandoprocessor 
en open met Alt*o een .log bestand. Door het commando prog 600 te ge- 
ven verschijnt adres 600h op het scherm gevolgd door twee inhoudsby- 
tes. Door de + in te drukken verschijnen volgende adressen. Ga door tot 
de inhoudsbyte 00h verschijnt. Dat is het einde van de monsters en het 
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Лод bestand kan worden gesloten met Ай+с. Met het programma Log- 
dat.exe (staat ook op de Internetpagina van Chip) worden de monsters 
omgerekend naar spanningswaarden en genummerd. Bovendien worden 
de waarden geinterpoleerd om de curve vloeiender te maken. Tevens 
worden de gemiddelde spanning en de ontladen energie berekend. Het 
opgewekte .dat bestand kan in het plotterprogramma worden ingelezen 
en als ontlaadcurve worden getekend. Het bestand Plotter.zip op 
www.vego.nl/chip bevat alle noodzakelijke gegevens. 


Analyse van een ontlaadspanningscurve 

De curve in figuur 9-8 is het ontlaadspanningsverloop van een 7-cellig 
NiCad-pakket met een capaciteit van 1.900 mAh. De ontlaadstroom was 
ingesteld op 190 mAh (0,1 C) en de ontlaadspanning op 1 V/Cel. Na 8 uur 
en 4 minuten was de accu ontladen en de gemeten capaciteit bedroeg 
1.532 mAh. Hoewel de accu niet nieuw was, was dat toch minder dan we 
hadden verwacht. De curve loopt zoals verwacht, maar toch is er iets 
vreemds. Bij een spanning van 8,4 V is de accu leeg, de spanning valt steil 
naar beneden, maar bij 7,1 V wordt het spanningsverloop weer vlakker. 
De spanningsval is ongeveer 1,3 V, blijkbaar is één cel omgepoold en 
deze cel neemt nu laadstroom op, in omgekeerde richting. 


SHAREWARE EDITION CiNCHIPNTESTO. DAT 


Figuur 9-8: Het ontlaadspanningsverloop van een 7-cellig NiCad-pakket 
met een capaciteit van 1.900 mAh. 
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Kort daarna is de eindspanning bereikt. Omdat de ontlaadstroom 0,1 C 
was, hadden we er beter aan gedaan om de eindspanning op 1,1 V/cel in 
te stellen. Dan zou er geen ompoling zijn geweest. Loodaccu's zijn gevoe- 
liger voor ompoling dan NiCad's of NiMH-cellen. Gebruikelijk is om voor 
de eindspanning 75 % tot 80 % van de nominale spanning te kiezen, maar 
dit hangt natuurlijk ook af van de ontlaadstroom. 
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Chip is een computertje ongeveer zo groot als 
twee luciferdoosjes tegen elkaar. Het hart van 
Chip is een microcontroller. Heel bijzonder is, 
dat in de microcontroller geen programma zit 
voor een vaste taak, maar een programma dat 
instructies in een hogere programmeertaal 
decodeert en ze in microcontroller code 
uitvoert. Deze programmeertaal is speciaal 
geschreven voor Chip en heel eenvoudig van 
opzet. Om met Chip te werken is kennis van 
microcontrollers niet nodig. Het enige dat nodig 
is, is Chip's instructieset. 


Chip bevat standaard alle hardware die voor 
eenvoudige toepassingen nodig is en voor de 
sturing daarvan bevat de hogere 
programmeertaal instructies. 

Om Chip te gebruiken is alleen een PC nodig 
met een seriële poort. Chip bevat alle software 
die voor de communicatie nodig is. 


Ondanks alle eenvoud is Chip een vrij krachtig 
computersysteem. Maar om aile mogelijkheden 
vol te benutten is enige kennis van elementaire 
digitale principes onmisbaar. Ook begrippen als 
bytes, nibbles en bits moeten vertrouwd klinken 
en de elementaire werking van het 
computermodel volgens von Neumann moet 
bekend zijn. 


Als aan deze voorwaarden wordt voldaan, zal 
men van Chip veel plezier kunnen hebben en het 
kleine apparaatje steeds meer gaan waarderen. 


